F/6  9/2 


AD-A069  665  ARCON  CORP  WALTHAM  MA 

MATHEMATICAL  MODELLING. (U) 

APR  79  S WOOLF » E COHEN  F19626-76-C-0297 

UNCLASSIFIED  RADC-TR-79-65  NL 


#>A069665 


**•<*  reviewed  by  the  KADC  Information  Office  fOl)  ‘ 

CIm  National  Technical  Information  Service  (BTIS) . 

general  public,  including  foreign  ■ «- 


la  approved  for  publication. 


DISCLAIMER  NOTICE 


5* 


THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DDC  CONTAINED  A SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


i wi  mwn  mi  in  i i « mni  FwwwiwwpumWMM  mupMfiipmmm 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whtn  Data  Enfararfj 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


2.  GOVT  ACCESSION  NO.I  3.  RECIPIENT’S  CATALOG  NUMBER 


REPORT  DOCUMENTATION  PAGE 


ANT  NUMBERS *) 


F19628-76-C-0247 


9.  PERFORMING  ORGANIZATION  NAME  AND  AODRESS 

ARCON  Corporation  ^ 

260  Bear  Hill  Road 
Waltham  MA  02154 


It.  CONTROLLING  OFFICE  NAME  AND  ADORESS 

Deputy  for  Electronic  Technology  (RADC/ESR) 
Hanscom  AFB  MA  01730 


MONITORING  AGENCY  NAME  « AODRESS///  dlltermnt  from  Controlling  Otticm)  IS.  SECURITY 

Same  UNCLASSIFIED 


ISa.  DECLASSIFICATION/ DOWNGRADING 
, SCHEDULE 

N/A 


IS.  DISTRIBUTION  STATEMENT  (ol  I Ms  Report) 


Approved  for  public  release;  distribution  unlimited. 


17.  DISTRIBUTION  STATEMENT  (of  tho  abstract  an  farad  In  Btoek  20,  If  dlffarant  from  Raport) 


18.  SUPPLEMENTARY  NOTES 


RADC  Project  Engineer:  John  C.  Garth  (ESR) 


19.  KEY  WOROS  (Contlnua  on  ravaraa  afda  If  nacaaaary  and  Idantlfy  by  block  numbar) 

Electron  Transport 

Surface  Acoustic  Wave  Filters 

Phase-Constrained  Guided  Modes  in  Dielectric  Slabs 


ABSTRACT  (Contlnua  on  ravaraa  alda  If  nacaaaary  and  Idantlfy  by  block  numbar) 

In  this  report  we  will  describe  the  techniques  and  computer  programs  developed 
to  analyze  various  problems.  The  scope  of  our  work  extended  into  three  techni- 
cal areas: 

) the  problem  of  electron  scattering  and  transport  in  solids,' 

) the  design  of  surface  acoustic  wave  levices,*  * « -Ot 
) the  study  of  phase-constrained  guided  modes  in  dielectric  slabs. 


UNCLASSIFIED 


TABLE  OF  CONTENTS 


2.  2. 1 Derivation  of  the  Flux  Coefficient  Equations  5 

2.2.2  Slab  Boundary  Conditions  9 

2.  2.  3 Calculation  of  Legendre  Expansion 


2.  2. 1 Derivation  of  the  Flux  Coefficient  Equations  5 

2.2.2  Slab  Boundary  Conditions  9 

2.  2.  3 Calculation  of  Legendre  Expansion 

Coefficients  for  Screened- Rutherford  Scattering  11 

2.  2.4  Numerical  Integration  of  Coupled  Equations 

for  Legendre  Coefficients  12 

2.2.5  Orders-of-Scattering  Flux  Calculations  19 

2.  2.  6 Physical  Quantities  Computed  by  the  P 

Method  Code  22 

2.  3 Solution  of  the  Transport  Equation  by  the  Method  of 

Characteristics  23 


23 

24 

27 

32 

60 

67 


3.  SAW  DEVICE  INVESTIGATIONS  68 

3.  1 Introduction  68 

3.2  3-Phase  Transducers  68 

3. 3 Theory  * 69 

3.4  Derivation  of  D (k)  and  D (V, 7))  70 

3.4.1  Programming  and  Associated  Tasks  74 

3.4.2  Task  Sequence  for  3-Phase  IDT  Study  75 


2.3.1  General  Discussion 

2.  3.  2 Expression  of  Solution  in  Terms  of  Reduced 
Source  Functions 

2.  3.  3 Monodirectional  (Normal)  Source;  Isotropic 
Scattering 

2.3.4  Monodirectional  (Normal)  Source;  Screened- 
Rutherford  Scattering 

2.3.5  Point  Isotropic  Source;  Screened-Rutherford 
Scattering 

2.4  References 


iii 


TABLE  OF  CONTENTS  (Continued) 


1 


Section  Page 


3.5  Results  75 

3.6  Tabulation  of  Major  Computational  Tasks  75 

3.6.1  Single  Electrode  Arrays  76 

3.6.2  Double  Electrode  Arrays  78 

3.6.3  Triple  Electrode  Arrays  78 

3.7  References  80 

4.  PHASE -CONSTRAINED  GUIDED  MODES  IN  DIELECTRIC  SLABS  81 

4. 1 Statement  of  the  Problem  81 

4.  2 Phase  Constraints  81 

4.3  lp. /Layer  Constraints  83 

4. 4 Determination  of  Eigenvalues  84 

4. 5 Eigenfunctions  and  Orthonormalization  85 

4.  6 Summary  and  Recommendations  86 

4.  7 References 

APPENDICES 

1.  Program  PLMETHD  (Electron  Transport)  89 

2.  Programs  GAUSQN,  ANISO,  GNLEG,  LOOK  (Electron 

Transport)  116 

3.  Programs  GAL3SE,  GAL3AD,  GAL3AT  (SAW  Device 

Investigations)  154 


iv 


Rome  Air  Development  Center 
Deputy  for  Electronic  Technology 

L.  G.  Hanscom  Air  Force  Base,  Massachusetts  01731 


v 


1.  This  report  is  the  Final  Report  on  Contract  F19628-76-C-0247 
with  ARCON  Corporation.  It  covers  research  done  on  mathematical 


modelling  during  the  twenty  month  period  1 September  1976  to 
30  April  1978.  The  objective  of  the  research  is  the  development  of 
new  mathematical  solution  techniques  for  application  in  the  areas  of 
kilovolt  electron  transport  in  solids,  surface  acoustic  wave  device 
design,  and  mode  propagation  in  optical  waveguides.  Significant 
progress  was  made  in  solving  the  electron  transport  equation  as  an 
alternative  to  Monte  Carlo  calculations,  and  new  methods  for 
(a)  design  of  3-phase  SAW  transducers  and  (b)  tailoring  the  refrac- 
tive index  profile  in  an  optical  waveguide  to  obtain  specified 
propagation  characteristics  were  developed. 

2.  The  above  work  is  of  value  since  it  provides  new  computational 
tools  for  improving  the  radiation  hardness  of  electronic  devices  and 
for  developing  advanced  devices  for  USAF  radar,  communication  and 
ECM  systems. 

JOHN  C.  GARTH 
Project  Engineer 
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1.  INTRODUCTION 


During  the  past  twenty  months  our  work  consisted  of  technical 
efforts  in  the  areas  of  electron  transport  in  scattering  media, 
surface  acoustic  wave  device  design  and  the  determination  of  phase- 
constrained  guided  optical  modes  in  dielectric  slabs.  These  efforts 
resulted  in  the  construction  of  mathematical  models  and  accompanying 

computer  programs  which  will  be  described  in  detail  in  the  following 

‘ 

sections. 

, 

i 


2.  Electron  Transport  in  Solids 


2. 1 Introduction 

A detailed  description  of  the  behavior  of  electrons  as  they  are  trans- 
ported through  a scattering  medium  can  be  obtained  by  solving  the 
* (1) 

Spencer -Lewis  equation.  The  Spencer- Lewis'  equation  has  the  same 
mathematical  form  as  the  time- dependent  Boltzmann  transport  equation. 
In  it  the  electron  energy  and  total  electron  path  length  are  related  through 
the  continuous  si  owing -down  approximation.  The  quantity  which  emerges 
as  the  solution  of  the  Spencer- Lewis  equation  is  the  electron  or  particle 
flux  which  is  a function  of  the  particle's  position,  direction  of  motion  and 
total  trajectory  length.  Assuming  a slab  geometry  (Fig.  1-1),  an  as- 
sumption that  will  be  adopted  throughout  this  document,  let  the  electron 
flux  be  denoted  by  f(x,p,  s),  where  x is  the  position  along  the  normal  to 
the  slab  surface,  p is  the  cosine  of  the  polar  angle  along  the  direction  of 


electron  travel,  and  s is  the  electron  path  length  (=  s(E),  E = electron 
energy).  Then  the  Spencer- Lewis  equation  for  f(x,p,s)  has  the  form 


— + p|^-  = T,  i J dp'  P (p'-*p,  s)  [f(x,p',s)  -f(x,p,s)] 

9s  dx  Ms)  -1 


(1) 


where  X(s)  is  the  total  energy- dependent  electron  mean-free  path  and  is 
expressed  here  as  a function  of  path  length,  s.  The  relation  between  the 
path  length,  s,  and  the  electron  energy,  E,  is  given  by  the  stopping  power 


formula 


(1) 


max 

■(E)  * s dE  / iff  <E)  i • 
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(2) 
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where  E is  the  initial  electron  energy,  and  dE/ds  is  the  electron 
max 

stopping  power,  a material  dependent  function  of  energy.  An  expression 

(2) 

for  the  stopping  power  is  given  by  the  Berger-Seltzer  formula. 

Of  the  remaining  terms  in  the  Spencer- Lewis  equation,  P(n'-»|j,  s)  is 
the  path  length  or  energy  dependent  probability  density  of  scattering  from 
angle  n'  to  angle  |i 

i.  e.  for  conservative  scattering 
1 

J P s)  djj'  •=  1 , (3) 

and 

S(x,^,s)  is  the  source  term. 

Full  analytical  solutions  to  the  Spencer- Lewis  equation  are  rare.  They 
do  not  exist  for  situations  of  interest  such  as  beam  or  monodirectional 
plane  sources  with  either  isotropic  or  anisotropic  scattering  but  rather 
for  such  situations  as  a plane,  uniform  isotropic  source  with  no  scattering 
(particle  streaming)  and  scattering  of  electrons  emanating  from  a uniformly 
(spatially)  distributed  source  in  an  infinite  medium  (gradient  term  absent). 

There  are  a number  of  numerical  solution  methods  for  this  equation. 

(3) 

The  method  of  moments,  developed  by  Spencer  , applies  to  the  case  of  a 

(4) 

plane  monoenergetic  source  in  an  infinite  medium.  Garth'  and  O'Brien 
developed  a finite-difference  solution  based  on  the  method  of  discrete 
* ordinates.  Both  of  these  methods  incorporate  anisotropic  scattering 

kernels,  a somewhat  complicated  relativistic  coulomb  scattering  function 
in  the  former,  and  a less  complicated  screened  Rutherford  formula  for 
the  latter.  The  screened  Rutherford  scattering  formula  is  used  in  the 
present  work  since  it  provides  a simple  means  by  which  the  anisotropy  of 


3 


the  electron  scattering  may  be  simulated.  The  degree  of  anisotropy  can 
be  systematically  varied  with  appropriate  adjustment  of  the  screening 
parameter,  T).  The  screened-Rutherford  expression  for  the  angular 
scattering  probability  density  is  (assuming  azimuthal  symmetry). 


P(U'-*H)  = 


Dd+Tl)  (1+T)  - MM’) 

2 ■ 

[T)Z+2T)(1  -pn1)  + (n-n')2]3/Z 


where  p'  and  ^ are,  respectively,  the  pre  and  post- collision  electr  on 
velocity  direction  cosines  w.  r.  t.  the  slab  axis,  x (see  Fig.  1)  and  T)  is 
the  Rutherford  screening  factor.  The  screening  factor  is  energy  and 
ma4erial  dependent.  That  is,  for  a given  material  of  atomic  number  Z 


T)(E)  = 


3.2  x 10 


E(KeV) 


Another  method  for  the  numerical  solution  of  the  Spencer- Lewis 
equation,  the  P method,  will  be  reported.  A computer  code  was 
developed  which  obtains  solutions  of  this  equation  in  terms  of  Legendre 
expansions  of  the  electron  flux.  A parallel  effort  also  took  place  in 
which  orders-of- scattering  solutions  of  the  Spencer-Lewis  equation 
were  obtained  in  analytic  form  for  the  first  three  orders  in  the  case  of 
isotropic  scattering  and  the  first  two  orders  for  screened  Rutherford 
scattering.  These  analytic  solutions  were  then  used  as  input  to  a 
recursion  formula,  with  which  accurate  determinations  of  higher  order 
scattering  solutions  were  obtained  numerically.  The  orders-of- scattering 
solutions  were  then  used  to  test  the  validity  of  the  P computer  code. 


2.2  The  P Method 

v 


The  principle  of  operation  of  the  method  consists  of  expanding 

the  electron  flux,  source  and  scattering  functions  in  Legendre  series 

in  angle  and  then  solving  the  resulting  partial  differential  equations  for 

the  Legendre  series  coefficients  of  the  electron  flux.  Implementation 

of  this  method  has  been  previously  accomplished  by  researchers  in  the 

nuclear  reactor  field.  Their  interest  was  primarily  centered  on 

steady- state  neutron  transport  in  weakly  anisotropic  scattering  media. 

(4) 

As  pointed  out  by  Clark  and  Hansen  , the  P method  can  also  be 

*0 

employed  in  the  time- dependent  transport  case.  The  adaptation  of  the 
time-dependent  P method  to  the  solution  of  the  Spencer- Lewis  equation 

A/ 

is  straightforward  since  there  is  a direct-correspondence  between  the 
path  length  variable,  s,  of  the  latter  and  the  time  variable,  t,  of  the 
former. 


2.2.1  Derivation  of  the  Flux  Coefficient  Equations 
Equation  (1)  may  be  re-written  in  the  following  form 


(£  + + = 

1 1 2tt 

T S,  dM'  J dcp  P(cos  or)  f(x,n',  s)  + S(x,n,s) 


(6) 


where  cos  a,  the  cosine  of  the  deflection  angle  subtended  by  the  initial 
and  final  directions  of  the  scattered  particle,  is  given  by 


cos  a 


HU'  + 


2 2 
M ) (1  - M') 


cos  cp 


(7) 


(p  and  |j’  are  as  previously  defined,  and  cp  is  the  azimuthal  deflection). 


The  particle  flux,  source  function,  and  scattering  probability  are  then 
expressed  as  Legendre  series  expansions  in  angle.  That  is. 


* 1 

f(Sc,  n,  s)  = E + \)  t.  (x,  s)  P (n) 
4=0 

GO 

S(X,H,  8)  = E (l  + |)  S^(x,  8)  P^(u> 


P(cos  Of)  - 


w 

E (4  + 7 d.  P (cos  Of) 

4=o  2 1 1 


where  P^(z)  is  the  Legendre  polynomial  in  z of  order  4,  f^(x,  ■ )»  S^(x»  ®) 
and  d^  are  the  coefficients  of  the  4-th  order  term  of  the  respective 
Legendre  series  for  the  flux,  source  and  scattering  probability.  Before 
these  expansions  are  substituted  into  Eqn.  (6),  it  i6  necessary  to  express 
the  scattering  probability  in  terms  of  the  initial  and  final  direction 
cosines,  n'  and  The  addition  theorem  for  spherical  harmonics  states 


P^coso)  = P L(yi)  P^(M')  + 2 E P*(n)  P^(U')  coskep  . ( 

With  the  above  identity  the  azimuthal  portion  of  the  scattering  integral 
of  Eqn.  (6)  may  be  evaluated  as  follows: 


2tt 

J*  dcp  P(cos  or)  = 
o 

t?0(u2>  f d“di[p^>p^,»+ 2J1tfV)  ».*] 


where  the  ;(|a)  are  associated  Legendre  functions. 


v 


k an  integer. 


Simplification  is  possible  since  J dcpcoskcp  = 0 

o 


Then  the  gradient  term  becomes 


M|i(*.u.s)  . I £ Qm,  PWIM  + tPt.l(li3 


° 4 (x.  s) 
ax 


If  4+ 1 =j  in  the  first  sum  and  4-l=j  in  the  second  sum  above,  then 


E(^i)P  fta)  = EjP(n) 

4=o  4+1  j=o  J 


E 4p  (n)  = E (j+l)  p.(^)  • 

4=o  j=o  3 

The  left-hand  side  of  Eqn.  (6)  then  becomes 

piw3  & * tl  v*-*’  * 

When  the  equal  j terms  are  matched  on  both  sides  of  Eqn.  (6)  there 
results  the  following  set  of  j+l  coupled  partial  differential  equations 
for  the  Legendre  coefficients  of  die  electron  flux: 


(£+  x)Vx,,)  + (zj+i) 


i vS£j.l,X-*» 


i+M  Mi+i(x-9) 


m 


TdjVx’*>  + sj'x'-»  • 


J=0, 1 9 Z*  • • • 


AMkDtsr  * 


' ?lv  r' 


i 


The  above  equations  represent  a simplification  of  the  problem  in  that  the 
angular  variable  has  been  removed,  and  the  flux  function  f(x,  p,  s)  has  been 
replaced  by  a set  of  angle-independent  flux,  expansion  coefficients  f (x,  s). 
v These  equations  can  be  solved  numerically  using  finite  difference  methods. 

It  must  be  pointed  out  that  there  are  at  least  three  important  factors  to  be 
' considered  in  the  implementation  of  finite  difference  solutions  of  the  above 

equations:  1)  the  spatial  (x)  behavior  of  the  flux;  2)  the  rapidity  of  flux 
variation  with  pathlength(s);  3)  flux  shape  anisotropy;  4)  degree  of  angular 
anisotropy  of  the  scattering.  The  first  two  factors  directly  influence  the 
calculation  in  an  obvious  way.  The  x and  s grid  sizes  must  be  fine  enough 
to  track  rapid  or  abrupt  variations  in  the  spatial  or  pathlength  dependence 
of  the  flux  coefficients.  Also,  a "rule  of  thumb"  for  finite  difference 
calculations  must  be  factored  in;  the  spatial  integration  step  size  ought  not 
to  exceed  X/10.  These  requirements  can  place  strenuous  demands  on  both 
the  core  storage  and  computation  time  consumed  by  such  a calculation, 
particularly  if  the  flux  distribution  is  derived  from  a monodirectional  point 
source.  The  third  and,  fourth  factors,  flux  shape  and  scattering  aniso- 
tropies, influence  the  feasibility  of  the  calculation  through  the  number  of 
Legendre  series  terms  required  to  render  an  adequate  representation  of 
the  flux  singular  distribution  (Eqn.  8)  in  the  former  case,  and  the  number 
of  Legendre  coefficients  d^  required  to  accurately  describe  the  scattering 
process  in  the  latter.  These  two  factors  are  not  entirely  separable  since 
flux  anisotropy  can  result  from  either  or  both  of  two  causes,  an  initial 
monodirectional  flux  distribution  and  anisotropic  scattering.  The  net 
effect  is  that  of  increasing  the  number  of  coupled  equations  (18)  to  be 
solved. 

2.2.2  Slab  Boundary  Conditions 

The  calculation  of  the  Legendre  coefficients  of  the  electron  flux  is 
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performed  for  slabs  of  finite  thickness.  This  fact  arises  both  out  of 
computational  necessity,  the  limitation  due  to  the  number  of  spatial 
integration  steps,  and  an  attempt  to  accurately  model  the  physical 
situation.  Marshak^  boundary  conditions  were  adopted  to  describe 
the  behavior  of  the  Legendre  Qu-t  coefficients  at  the  slab  extremeties. 
The  Marshak  conditions  are  vacuum  boundary  conditions  on  the  particle 
current.  Given  a slab  of  width  'a'  (Fig.  2-1),  the  requirement  of  zero 
return  current  from  file  vacuum  may  be  expressed  in  terms  of  the  follow 
ing  integral  conditions: 


J*  f(o.M,s)  P (|i)dp  = 0 
o m 


J*  f(a,p,  s)  P (p)dp  = 0 
-1  m 


m=l,  3,5,... 


The  Legendre  coefficients  at  the  slab  boundaries,  f^(o,  s)  and  f^(a,  s) 
were  solved  for  directly  using  the  above  conditions  (19)  in  conjunction 
with  Eqn.  (8)  to  form  the  following  set  of  linear  equations. 


, 1 

£ (f'+^)f^(o,  s)  J*  P^(p)  Pm(u)  dp  = 0 

e O 

E {UZ )£t(*'  9)  ^ Pt(M)  Pm(M)  ^ s 0 


m=l,  3,  5,7... 
*=0,1,2,  3... 


The  coefficients  f^(o,  s)  and  f^(a,  s)  were  computed  for  * values  ranging 


from  0 to  20. 


•*%.  r-K  . 

. ■ - 


An  alternative  to  the  expression  for  the  screened- Rutherford 
scattering  probability  density  given  by  Eqn.  (4)  is  an  expression  in 
terms  of  the  scattering  deflection  angle  or 


p(co.o)  . Jj.  mum 

(l+T)-cos  a) 


The  expansion  coefficients,  q^,  of  Eqn.  (10)  are  obtained  by  multiplying 


both  sides  of  Eqn.  (10)  by  P(coscr)  and  integrating.  That  is 


1 


J*  P.(cos  of)  P(cos  or)  d (cos  a)  - 
-1  J 


• J 

£ ({d--|)  d^  J*  P^(cob  a)  P(cosar)  d(cos  a)  = » 

4=0  • 1 


or 


d.  = J P.  (cos  or)  P(cos  a)  d(cos  a) 
L -1  * 


_1_  -IUI+TL)  -1  Pt(^»  a)  d(c°.  or) 

‘ 2n  2 J ^ 


-1  (1  + T)  - cos  or) 


(6) 


Garth'  has  derived  a set  of  relations  for  obtaining  the  d^'s  which 
eliminates  the  necessity  for  evaluating  the  integrals  of  Eqn.  (23).  If 
a set  of  quantities  C^(T))  are  defined  as 


CfM)  = dQ(T|)  - d^(T))  , (; 

do(T))  = 7K1+T1/2)  ’ 


where 


then  the  following  recursion  relation  holds  for  the  C.  's: 

*CU1  = (2Ul)(l+H)Ct  - <Ul)Ct  j - 1^-  . (26) 

2 

The  above  relations  were  used  to  obtain  the  screened-Rutherford 
scattering  expansion  coefficients  in  the  computer  code. 

2.2.4  Numerical  Integration  of  Coupled  Equations  for  Legendre  Coefficients 

Two  finite  difference  schemes  were  employed  to  integrate  the  set  of 

coupled  equations  for  the  Legendre  coefficients  of  the  flux,  f.  (x,  s).  The 

#7)  J 

simpler  of  the  two  is  the  Friedrichs  scheme,  an  explicit  method,  in 
which  the  derivatives  of  f are  estimated  linearly  as  would  seem  appropriate 
for  solving  a linear  hyperbolic  equation.  The  other  integration  scheme  is  a 
second  order  calculation  which  utilizes  the  coupling  between  the  equations 
for  different  order  Legendre  coefficients  to  obtain  more  accurate  estimates 
of  the  derivatives  of  f.  The  results  obtained  with  the  second  order  scheme 
are  more  accurate  than  those  given  by  the  Friedrichs  method  with  little 
noticeable  sacrifice  in  computational  cost. 

2.  2.  4.1  The  Friedrichs  Scheme 

Numerical  integration  of  the  system  of  equations  (18)  by  means  of  the 
Friedrichs  scheme  utilizes  forward  differencing  along  the  path-length 
variable,  s,  and  a divided  difference  derivative  formula  along  the  spatial 
variable,  x.  With  reference  to  the  x,  s grid  of  Figure  2-2,  the  system  of 
equations  (18)  can  be  re-written  in  finite  difference  form  according  to  the 
Friedrichs  scheme  as  follows: 


W 


J 


(f  )n+1  - — 

1 A,  2 

(£*>“ 

+ <V“ 

k 

_ k+1 

As 


2 Ax 


(£Ul)  - (f-t+l) 

*•  1 ; • * B'-L,  • «.,]  ■ 


2 Ax 


2X 


(27) 


tC,  • K.J  ' 


2X 


A=0,  1, 2. . . , imax. 


where 


al  ' 2-U1 


P = 


A+l 


2A+1 


imax  is  the  index  of  the  highest  order  turn  to  be  evaluated  in  the 


Legendre  series,  and  As  and  Ax  are  the  finite  intervals  corresponding 
respectively  to  the  differentials  ds  and  dx.  The  quantity  |V,\n+*  is  the 

\k 


value  of  the  A-th  order  Legendre  flux  coefficient  at  the  x,  s grid  point 

P,  Analogous  definitions  apply  to  the  other  bracketed  quantities  of 

Eqn.  (27).  The  essential  difference  between  this  scheme  and  a simple 

explicit  scheme  is  that  the  value  of  f^(x,  s)  at  the  grid  point  R,  namely 

(*ljn • is  rePlaced  everywhere  by  the  average  over  the  values  at  the  two 

adjacent  x grid  points,  -||7f^n  + (f\n  Conditions  necessary  for 

.V . A . / k - 1 J 


the  implementation  of  this  scheme  are;' 


f_j(x, s) 


f,  , (x,  s) 
Amax+ 1 ' 


s 0 for  all  x,  s. 


(28) 
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Then  if  either  a source  condition  or,  as  is  usually  the  case,  an  initial 
condition  on  the  flux  coefficients  f.  (x,  o)  for  all  4 and  x values  is 


given,  the  values  of  the  Legendre  coefficients  of  the  flux  at  the  grid 
point  P can  be  obtained.  If  the  quantities  A and  B are  defined  as 


Fig.  2-2. 


The  (x,  s)  grid 


The  computational  procedure  employed  to  implement  Eqn.  (30)  consists 
essentially  of  the  execution  of  three  nested  loops.  The  sequence  of 
calculation  is:  a)  evaluate  the  Legendre  coefficients  at  a particular 
point  (x,  s)  for  all  values  of  L,  Oststmax  (innermost  loop);  b)  perform 
the  above  (a)  for  every  x value  on  the  (x,  s)  grid  at  a fixed  s value  (middle 
loop);  c)  perform  the  above  (aflb)  for  every  s value  on  the  (x,  s)  grid. 

2.  2.4.2  The  Second-Order  Integration  Scheme 

The  second- order  integration  scheme,  an  adaptation  of  the 
18) 

Lax-Wendroff'  method,  yields  an  improvement  in  accuracy  over  the 
spatial  averaging  scheme  of  Friedrichs.  The  applicability  of  a second 
order  scheme  to  the  system  of  coupled  first-order  linear  equations  (18) 
arises  from  the  fact  that  the  coupling  among  the  various  order  Legendre 


15 


coefficient  equations  can  be  incorporated  into  the  analysis  by  evaluating 
the  second  partial  derivatives  of  the  f^  with  respect  to  pathlength,  s. 


An  expression  for  f^  at  point  P (Fig.  2-2)  can  be  obtained  by  expansion 
to  second- order  about  the  point  R as  follows: 


ft 


ft  + 4'  (it)  + I <4-> 


2f 

,3s* 


(31) 


The  first  derivative  term  can  be  evaluated  directly  from  Eqn.  (18). 


K 1 

fed*  ■ 


'df 


- a 


■t-1 


•Max 


- + 


(32) 


R 


Differentiation  of  the  above  expression  (32)  once  with  respect  to  s yields 
an  expression  for  the  second  partial  derivative  of  Eqn.  (31).  That  is 

(33) 


s2f 


t3s 


r - £ ‘Vx>  Gr)  - •* 


^a2f 


^-i 


'a2f 


3s3x 


- P 


t+1 


'R 


l asax 


*£). 


Upon  substitution  of  Eqn.  (32)  into  Eqn.  (33),  the  second  derivative 
becomes 


1 2 al 

,-r  - ^(VJ)  <VP  - 

1 3s  /R  X R 


3f 


l-l 


ax 


Zi(d  nN 

X (V1J  3x 


+ r<V‘"VR  - ^[lrt1)R  ■ *♦(?£*)  + &)R 


(34) 


The  mixed  partial  derivatives  can  be  evaluated  in  terms  of  spatial 
derivatives  alone  by  rewriting  Eqn.  (18)  for  order  l-l; 


ra  1 1 

[a!  ' X (d6-i  _1J  {1-1  + ai-i  + Pi-1  aT  ■ SM  = 0 


(35) 


for  order  6+1; 


[as  ‘ x f6+i  + “6+1  ax  + p6+i  ax  " s6+i  = 0 ’ (36) 

and  then  differentiating  each  expression  (35,  36)  once  with  respect  to  x, 
yielding 
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6-1 


af 


asax 

and 


x (dt-i_1)  ax 
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a2f 
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1-2 


a2f. 
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l-l  „ 2 

ax 
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6+1  . 2 

3x 


ax 


(38) 


If  Eqns.  (37)  and  (38)  are  substituted  into  Eqn.  (34),  and  if  this  result  is 
then  used  along  with  Eqn.  (32)  to  eliminate  the  derivatives  of  f with  respect 
to  s in  Eqn.  (31),  the  final  expression  for  f at  point  P is 

V 
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% = {J  + T «V‘>  + i(t)2  «V“  j »*» 

' |*e  + 2 ^ (dt  + d2.-l'2}  “ifcT1)] 

- f + 1 (t’2  (dt  + <W2}  fjsH 


1 zT  fa\-z\  l*2{u  z\  t*\ 
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ax  r 


\ 2 JP-tA  faS-t-l\  Pui\ 
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From  Eqn.  (39)  it  is  seen  that  exploitation  of  the  coupling  feature  of  the 
equations  for  the  Legendre  flux  coefficients  yields  a second  order  expression 
for  the  values  of  the  Legendre  coefficients  f^  at  grid  point  P are  obtainable 
in  terms  of  the  f and  theiT  spatial  derivatives  only  at  point  R.  If  source 
terms  are  present,  their  spatial  and  pathlength  derivatives  can  be  evaluated 
either  analytically  or  numerically. 

2.  2.  4.  3 Comparison  of  Friedrichs  and  Second-Order  Scheme  Results 


Numerical  results  were  obtained  using  both  the  second-order  inte- 
gration scheme  and  the  Friedrichs  scheme  for  a test  case  where  com- 
parison with  exact  flux  values  was  readily  obtainable,  the  (Imax  = 1) 
equations  in  the  absence  of  scattering  (streaming).  Rather  than  a source 
term,  S,  a Gaussian  spatially  distributed  monodirectional  (direction 
cosine  pQ)  initial  flux  was  assumed.  Table  2.  1 is  a comparison  of  the 

numerical  results  for  the  total  flux  f obtained  with  the  two  methods 

o 

with  the  exact  results  at  the  approximate  peak  flux  point,  x"«  x + p s, 

o o 

in  a slab  of  unit  thickness.  The  finite  difference  steps  in  x and  s were 


both  Bet  equal  to  0.01  slab  widths,  and  X was  taken  to  be  10  slab  widths 
(virtually  no  scattering). 


Table  2.  1 

Comparison  of  Total  Flux,  f , obtained 
with  Second-Order  and  Friedrichs  Scheme 
with  Exact  Values  for  Peak 
Flux  Points,  Ax  = Ax  = 0.  01 


(slab 

widths) 


Second-Order 

Scheme 


Friedrichs 

Scheme 


5.  637 
5.624 
5.  635 
5.641 
5.627 
5.612 


5.  299 
5.  010 
5.  009 
4.  554 
4.  370 
4.  205 


Exact 

Values 


5.639 

5.630 

5.636 

5.641 

5.641 

5.634 


Also,  a comparison  of  the  second-order  scheme  results  with  the  exact 
values  when  the  numerical  integration  was  performed  along  the  charac- 
teristic line  As  = Ax/jjq  yielded  discrepancies  in  the  fourth  significant 
figure  only. 


2.2.5  Orders-of-Scattering  Flux  Calculations 

The  Spencer- Lewis  equation  (1)  can  be  expressed  in  terms  of  a set 
of  equations  for  the  electron  flux  if  the  flux  is  expanded  in  an  orders-of 
scattering  series. 


Let 


f(x,u,s)  = E f (x,n,  s) 
n=0  n 


where  n is  the  number  of  elastic  scatterings  undergone  by  the  electron 
along  its  trajectory  in  the  scattering  medium.  Substitution  of  the  above 
series  into  Eqn.  (1)  leads  to  a set  of  n+1  orders-of- scattering  equations: 


n . . . n . ** 

ds  dx  ^(s) 


S (x,H,  s) 
n 


where 


S (x,  H,  s) 
n 


i 

= J*  dM1  P(^-*H.s)fn  l (x.U'.s) 


The  functions  S can  be  considered  to  be  sources  of  n-times  scattered 
n 

particles  or  collision  densities. 

Correspondingly,  numerical  solutions  can  be  derived  for  the 
Legendre  coefficients  of  the  n-th  scattered  electron  flux.  In  direct 
analogy  to  equations  (18),  the  coupled  set  of  equations  for  the  n-th 


scattered  flux  coefficients  is 


(a7  * t)  f”<x' 


B)  + 2j+l  Ux 


a*  I + |2j+l  | lax 


& (x,  s)  ; j=0,  1,2.... 
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where  f*1  and  &n  are  respectively  the  j-th  Legendre  coefficients  of  the  n-th 

scattered  flux  and  source  function.  The  finite  difference  solution,  to 

second  order,  for  the  f^(x,  s)  is  of  the  same  form  as  that  given  for  the 

Legendre  flux  coefficients  in  Eqn.  (39).  Aside  from  affixing  a superscript 

n to  the  appropriate  quantities,  the  only  remaining  modification  consists  of 

setting  the  scattering  coefficients  d.  to  zero.  A version  of  the  P.  method 

3 ** 

code  was  prepared  to  execute  this  algorithm. 


2.  2.6  Physical  Quantities  Computed  by  the  Method  Code  (PLMETHD) 

The  computer  code  (PLMETHD)  written  to  implement  the  method  of 
solution  described  in  the  preceding  sections  (2.  2 et  seq.  ) utilizes  the 
Legendre  coefficients  of  the  electron  flux  to  calculate,  in  subroutine 
PROFILE,  the  following  set  of  physical  quantities: 

1)  forward  charge  flow  profile 

2)  backward  charge  flow  profile 

3)  net  charge  flow  profile 

4)  forward  energy  flow  profile  . 

5)  backward  energy  flow  profile 

6)  net  energy  flow  profile 

7)  energy  deposition  profile 

The  mathematical  definitions  of  these  quantities  are  given  in  Ref.  (1). 

A listing  of  the  code  PLMETHD,  the  version  which  utilizes  the 
second-order  integration  scheme  (sec.  2.  2.  4.  2),  is  given  in 


f 


2.  3 Solution  of  the  Transport  Equation  by  the  Method  of  Characteristics 
2.  3.  1 General  Discussion 

The  Spencer-Lewis  equation  for  the  flux  of  n-times  scattered  electrons, 
df  df  f 

3f+  “5?  + f*  sn<5t-M-’>  • <«> 

(9) 

can  be  solved  using  the  method  of  characteristics,  an  outline  of  which 
will  now  be  given. 

-s/X 

If  the  substitution  f (x,|i,  s)  = e h (x,n,  s)  is  used  in  Eqn.  (41), 
n n 

the  resulting  solution  will  be 

hn(x,M,  s)  = J*  e1^  Sn[x  - U(s-t),M,t]  dt  . (44) 

81 

In  the  above,  t is  the  dummy  variable  of  integration,  and  s^  is  the  lower 
limit  of  integration  (which  will  be  determined  later).  The  first  argument 
of  the  function  S^  in  the  integrand,  x-  M(s-t)  is  the  projection  on  the 
x-axis  of  the  particle  path  between  collisions  and,  in  fact,  represents 
the  x position  of  the  particle  which  has  already  traversed  a total 
pathlength  t (Fig.  2-3),  and  having  arrived  at  the  site  of  the  n-th  collision, 
will  have  traversed  a total  pathlength  s. 


Finally,  upon  conversion  of  the  functions  back  to  the  original  flux 
functions,  the  solution  of  Eqn.  (41)  by  the  method  of  characteristics  is 


f(x,|i,s)  = e"s/XJ*  et/X  S (x-Hs+Ut.H.t)  dt 


where  S (x,M,s)  = 7 J* dP'  P(M'-*H)  f (x,M',s) 
n * , n-1 


2.  3.  2 Expression  of  Solution  in  terms  of  Reduced  Source  and  Flux  Functions 
While  the  above  integral  expressions  (45,46)  provide  a solution  of  the 
orders-of- scattering  equations  (41)  in  the  formal  sense,  these  are  not  yet 
cast  in  the  form  most  amenable  to  numerical  solution. 

The  work  of  Ganapol  et  al^^’  has  suggested  a formulation  of  the  flux 
and  source  functions  which  has  proven  to  be  a valuable  aid  in  this  regard. 

A simplification  of  the  problem  is  achieved  through  the  expression  of  the 
flux  and  source  functions  in  terms  the  quotient  q = x/s  and  pi,  a reduction 
of  the  number  of  variables  from  three  to  two. 

For  the  n-th  order-of- scattering,  a set  of  reduced  flux  functions 

Fn(U,q)  and  a corresponding  set  of  reduced  sources  G^fH.q)  can  be 

defined  in  terms  of  the  previously  defined  quantities,  f,  f and  S as 

n n 

follows: 


f(x,M,  s)  = T>  { (x,M,s) 
n=0  “ 


• . / \n  -s/X 

■ E„7(i)  “ • 


. / \n- 1 -s/X 

* i7 (ij 


where 


q * x/s 


mmsm md 


An  additional  simplifying  assumption,  that  the  scattering  probability  P 
is  independent  of  s,  was  made. 

2.  3.2.1  Recursion  Relations  Between  Reduced  Flux  and  Source  Functions 

If  use  is  made  of  the  definitions,  Eqns.  (47,48),  the  following  recursion 

relation  between  the  reduced  functions  F and  G may  be  derived  from  Eqn.  (46). 

n n 

The  resulting  relations  are 


1 

GnGi,q)  = J dp'  P(|i'-*p)Fn_1(|i',q) 


and 


where 


F(P.q) 


= n 


-1 

J dp 


n-2 


G (M,q') 
n 


q' 


p 


+ 


(49) 


(50) 


(51) 


The  lower  limit  of  the  above  integral  has  not  been  specified.  The  specifi- 
cation of  Qj  and  correspondingly,  s^  (Eqn.  45)  can  be  accomplished  by 
considering  the  possible  relationships  between  the  variables  p and  q.  The 
overriding  constraints  on  the  quantities  of  Eqn.  (65)  are 


r «‘p«o 

i 

-l^qSl 

sq' 


(52) 


If  all  of  the  possible  relations  between  q and  p,  consistent  with  the 
above  constraints,  are  considered,  the  resulting  values  for  are: 
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P1  = ; 


pi  = • (q<^  ; 


p,  = o , (q  = n) 


Correspondingly,  for  s,  the  results  are: 


x-Us  , ^ , 

• l = . (x>^s)  ; 


Hs-X  , , 

•i  * m — ■ <x<,->  • 


*i  = 0 


(x=Hs) 


The  relations  given  by  Eqns.  (49)  and  (50),  while  containing  one  less 

variable  than  their  counterparts,  Eqns.  (45)  and  (46),  do  not  yet  constitute 

a basis  for  numerical  evaluation  of  the  and  functions.  Implementation 

of  Eqns.  (49)  and  (50)  is  complicated  by  the  necessity  for  evaluating  two 

separate  integrals,  one  for  q<p  and  another  for  q>n.  Furthermore,  for 

n<2,  the  integrand  of  Eqn.  (50)  is  singular  at  the  point  q = p.  The  recursion 

equations  (49)  and  (50)  can,  however,  be  employed  to  deriving  a tractable 

recursion  formula  for  the  G functions. 

n 


2.  3.2. 2 A Practical  Recursion  Relation  for  the  G Functions 

n 


can  be  combined  to  yield  the  following  integral  equation  for  the  reduced 
source  functions: 
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T .r  ' pi  • ' 


A 


G , (M,  q)  . ./ a, V*>  + P(r-M)  (*-q)n-lGn(r.») 

n+  1 . 

- 1 q , n 

H L (r-t)  J 


At  the  point  where  the  integrand  denominator  goes  to  zero  (r=t=q),  the 

numerator  is  also  equal  to  zero.  This  presents  no  real  difficulty  since 
the  integrand  is  well  behaved  on  either  side  of  r=t=q.  The  numerical 
integration  can  be  safely  executed  about  this  point  without  evaluating  the 
integrand  at  it. 

This  final  form  of  the  recursion  relationship  provides  a practical 
means  for  obtaining  the  reduced  source  functions  for  the  n-th  order  of 
scattering.  The  only  requirement  for  implementation  of  this  formula  is 
that  an  adequate  numerical  or  analytical  representation  of  »Gq  surface 
to  initiate  the  iterative  procedure  be  supplied  by  another  means  for  some 
low  value  of  n.  Thus  far,  numerical  calculations  involving  Eqn.  (59) 
have  been  performed  for  a monodirectional  point  source,  with  the  G (n,  q) 
surface  supplying  the  initial  integrand  values,  and  for  a point  isotropic 
source,  with  the  Gj(jj,q)  surface  playing  the  same  role.  Both  screened- 
Rutherford  and  isotropic  scattering  were  considered.  The  case  of 
isotropic  scatter  of  particles  emanating  from  a monodirectional  source 
normally  directed  with  respect  to  the  slab  surface  will  be  discussed  first 
since  it  affords  some  qualitative  insight  into  the  behavior  of  the  G^  functions 
as  n increases  with  a comparatively  small  computational  effort. 


2.3.3  Monodirectional  (Normal)  Source;  Isotropic  Scatterinc 


The  application  of  Eqn.  (59)  to  the  special  case  of  isotropic  scatter 
from  a monodirectional  point  source  can  prove  useful  in  investigating  the 
behavior  of  reduced  source  functions  as  the  order  of  scattering  increases. 
The  recursion  relation  reduces  to  a simpler  analytical  form  for  this  case, 
since  the  scattering  probability  densities,  P(r,M)  and  P(t,  M),  take  on 
constant  values  Not  only  is  the  writing  of  a computer  program  to 

evaluate  Eqn.  (59)  a relatively  simple  task,  but  it  is  possible,  as  will  be 
shown,  to  obtain  an  independent  analytical  evaluation  of  G^(q)  for  this  case. 
Thus  a benchmark  curve  is  available  with  which  to  check  the  numerical 


integration  program. 


n 


A monodirectional  source  of  unscattered  particles  at  the  (x=0)  in  an 
infinite  medium  is  represented  mathematically  as 


S (x,li,  s)  = 6(x)  6(1-11)  6(s) 
o 


Substitution  of  this  expression  into  Eqn.  (54)  yields  for  the  unscattered 


f (x,)i,  s)  = e 6(x-s)  6(1-11) 
o 


The  source  of  once- scattered  particles  and  the  once- scattered  particle 
flux  may  be  obtained  by  the  successive  application  of  Eqns.  (46)  and  (45)> 
taking  P(li'-*li)  = 7.  That  is 


-■A 

Sjfx.p.s)  = 6(x-s) 


fj(x,  M,  s) 


pi  je(x-lis)^- 8 (X-Sjj 


w<. 


where 


8 (a)  = 


1 . z * 0 


0 . z > 0 


is  the  Heaviside  step  function. 


w; - *■ 


Before  the  conversion  to  reduced  source  and  flux  functions,  this 
process  can  be  repeated  for  another  6tep.  Again  from  Eqn.  (46),  one 
has 


- s/X 

S_(x,U,  s)  = *—z In 

& 4* 


fe)  • 


(65) 


and  from  Eqn.  (45), 


r 


f2(x’ 


ftn2s  • (wr) ln  (i^r~si)  ■ (fr^)tn(s-x)  • x>^6 


,u,s)  = v"n(^)  ' 


x = MB 


[• 


s in  2 s + 


{^r)  «•  (IT21 


)-fc) 


(66) 


in  (s-x)  , x<ps 


0 , s=0 


where  the  lower  limits  of  integration,  s^,  in  Eqn.  (45),  are  supplied  by 
Eqns.  (56,57,58). 

Expressions  for  the  corresponding  reduced  source  and  flux  functions 
can  be  written  immediately  using  the  definitions  of  Eqns.  (47)  and  (48). 


Fo(u,q)  = 6(q-l)  6(1 -U) 


(67) 
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w 


k 


(68) 

. q > P 

. q = M (69) 

. q <P 

(?0)  j 

(71) 

From  the  above  and  Eqn.  (49),  it  is  immediately  observable  that  for 
isotropic  scattering  the  functions  are  independent  of  y.  This  fact 
permits  an  analytic  simplification  for  the  recursion  relation  of  the  G^. 

If  the  functions  g are  defined  as 


g (q)  = G (y,q)  . (72) 

n n 


- 


g„+lw 


n 

2 


i q 

J*  dq1  gn(q’)  in(q»q’)  + J dq'  in(q’>  Jn(q,q,) 
q _1 


(73) 


where  for  notational  convenience,  the  integrals  over  p are  defined  as 


ln(q,q')  * f du  <§^,n 


Jn(q,q')  = J du 
q 


(74) 


The  functions  I and  J can  be  evaluated  recursively.  For  n=l  and  n=2, 

n n (12) 

the  integrals  of  Eqn.  (74)  are  found  in  standard  integral  tables 


A computer  code,  GAUSQN,  was  written  to  evaluate  the  gn(q)  to  order 
n=l 0.  The  iterations  were  begun  with  g2(q)  as  given  by  Eqns.  (71,72). 

Figure  2-4  is  a plot  of  the  gn(q)  curves  for  n=3-10.  The  q'  integrations 
of  Eqn.  (73)  were  performed  numerically  using  16  point  Gaussian  quadrature. 
This  choice  of  quadrature  eliminated  the  necessity  to  evaluate  the  integrand 
at  the  singular  point  q=l.  A code  listing  of  GAUSQN  is  given  in 
Appendix  2. 

In  order  to  assess  the  magnitude  of  numerical  error  introduced  as  a 
consequence  of  the  selection  of  a quadrature  technique  which  avoided  the 
endpoint  singularity  of  g^»  an  effort  was  made  to  evaluate  the  function 
g^(q)  analytically.  A direct  analytical  integration  of  Eqn.  (73)  was 
performed  with  the  expressions  for  I2  and  as  given  by  Eqn.  (74).  The 
result  of  this  effort  yielded  the  following  benchmark  expression  for  g^vq): 


+ 2 in  2 - (1+q)  in  (1+q) 
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where  L^(x)  is  the  dilogarithm  function  and  is  given  by 


(13,14) 


l12« 


(76) 


Numerical  values  of  g^fq)  obtained  via  the  two  methods,  numerical 
integration  and  evaluation  of  the  above  analytical  expression,  were 
found  to  be  in  substantial  agreement,  as  shown  in  Table  2.  2.  Thus 
the  validity  of  the  numerical  integration  scheme  was  established. 

2-3-4  Monodirecti onal  (Normal)  Source;  Screened-Rutherford  Scattering 

Unlike  the  isotropic  scattering  case,  arrival  at  an  analytic  solution 

of  Eqn.  (74)  is  highly  improbable  for  screened-Rutherford  scattering. 

Two  independent  numerical  solution  methods  for  obtaining  the  G functions 

n 

for  ni3  were  devised.  The  first  of  these  is  a computationally  expensive 
"brute  force”  numerical  integration  of  Eqn.  (74),  as  it  reads,  using 
Gaussian  quadrature  in  conjunction  with  a surface  interpolation  algorithm 
to  evaluate  the  integrand  G^  functions  at  the  Gaussian  ordinates.  The 
second  method  is  based  on  the  expansion  of  the  Gn  functions  in  a Legendre 

series  in  p,  and  solving  a set  of  integral  equations  for  the  Legendre 
coefficients  of  G^.  This  second  scheme  has  proven  to  be  considerably 
more  economical  than  the  first  when  the  scattering  anisotropy  is  mild 
enough  to  justify  truncation  of  the  Legendre  series  to  about  10  or  15 
terms.  In  addition  to  the  Legendre  expansion  of  the  angular  dependence 
of  the  G^  functions,  a further  economy  is  achieved  through  the  approxi- 
mation of  the  q dependent  portion  of  Gr  by  Chebyshev  series.  A certain 
amount  of  discretion  in  determining  the  appropriate  use  of  these  approxi- 
mations is  acquired  through  experience,  so  that  as  investigations  proceed 
from  one  screened-Rutherford  case  (T)  value)  to  another  the  process  of 
evaluating  the  G^  functions  gains  in  efficiency. 

As  will  be  demonstrated  in  a later  section,  the  validity  of  the  two 
numerical  methods  used  to  integrate  Eqn.  (74)  was  independently  confirmed 
by  the  application  of  the  method  to  the  integration  of  the  Spencer- Lewis 
equation  with  the  orders-of-scattering  source  provided  by  the  G functions. 


~ 


— — 
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ISOTROPIC  SCATTERING 


1 


q(=x/s) 


TABLE  2.2 

COMPARISON  OF  g3(q)  VALUES  OBTAINED 
BY  TWO  METHODS 


g3(q)* 

q 

NUMERICAL  INTEGRATION 

ANALYTICAL  EXPRESSION 

-l. 

0. 

0. 

-.9 

0.01135 

0. 01136 

-.8 

0.03876 

0. 03876 

0.07849 

0.07847 

0. 12847 

0. 12842 

0. 18714 

0. 18704 

0. 25316 

0. 25300 

-.3 

0. 32522 

0. 32501 

-.2 

0.40205 

0.40177 

1 

0.48224 

0.48190 

0 

0.56423 

0. 56383 

0. 54618 

0.64572 

0.72584 

0. 72534 

0. 80034 

0. 79981 

0. 86584 

0. 86531 

. 5 

0. 91698 

0. 91648 

.6 

0. 94570 

0. 94529 

0.93883 

0. 93861 

0. 87178 

0. 87189 

0.68553 

0.68632 

0. 

0. 

normalized  to  unit  particle  source 
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2.  3.4.1  Recursive  Algorithm  Initiation 


A 


Independent  of  the  choice  of  either  of  the  above  two  integration  methods 

is  the  problem  of  obtaining  a set  of  G^fti,  q)  values  with  which  the  recursion 

relations  of  Eqn.  (59)  may  be  initialized.  An  analytical  expression  for 

G (ji,q)  can  be  obtained  for  n=2.  This  provides  a departure  point  from 
n 

which  the  numerical  integration  algorithm  can  be  applied. 

As  was  done  for  the  isotropic  scattering  case,  successive  application 
of  Eqns.  (45)  and  (46),  to  the  extent  that  analytical  evaluation  of  the  integrals 
is  feasible,  results  in  an  expression  for  the  source  function  S^x.p.s)  from 
which  the  G^p.q)  function  may  in  turn  be  obtained  via  Eqn.  (48).  The 
applicable  scattering  probability  density  here  is,  of  course,  the  screened- 
Rutherford  probability,  given  by  Eqn.  (4),  which  is  a function  of  both  the 
initial  and  final  direction  cosines  as  contrasted  with  the  constant  value  of 
0.5  for  isotropic  scatter.  If  the  procedure  used  to  obtain  Eqns.  (61-71) 
after  a considerable  amount  of  algebraic  manipulation,  the  following 
expression  for  G^: 


G2(M,q)  = 


y<uf> 


(l+3y+^)  Ij  + (3y+3+|)I2 

<y+  3+^»  S + '1+^4  + <*+K 


where 


-2(2V-H3x) 

2 2 1/2 

(4«y-P  ) (ax  +px+Y)  ' 


2(2qx+B) 

(4aY-p2)  (ax2+gx+ Y)1 


2(ofgx-2gY-l-B  ) j 

Y(4aY-P2)  (ax2+px+Y)1/2  Y 


. J _ , 2Y+Px+fr//(ax2+px+Y) 
1/2  j>ir  x J 


X4  = 


2 1/2 
Yx(ax  +gx+Y)  ' 


Ml  _ — j 
2Y  3 Y 2 


-t4aY-zp  JX-2YP 
a(4aY-P2)  (axZ+px+Y) 


1/2  a3/2  ln  [2 


2 -/a  (ax  +Bx+y)  + 2ax+P 


A program  was  written  to  evaluate  the  above  expression  (Eqn.  (77) 
for  G This  program  has  been  incorporated  as  a subroutine  in  the 
numerical  integration  program. 


2.  3.4.  2 Numerical  Integration  of  the  Recursion  Equation  via  the 
Gaussian  Quadrature  Technique 


A numerical  integration  of  Eqn.  (59)»  and  hence  the  evaluation  of  the 

G (n,q)  functions  for  various  values  of  the  Rutherford  screening  parameter, 
n 

was  performed  using  the  Gaussian  quadrature  technique.  If  the  Gaussian 
ordinates  for  a J-th  order  quadrature  calculation  are  denoted  as  (lsj  sj) 
(the  §.  are  the  zeros  of  the  Legendre  polynomial  of  order  J),  and  the 
corresponding  Gaussian  weighting  coefficients  as  A. , then  Eqn.  (59)  when 
restated  in  the  discrete  ordinate  representation  appears  as 


G„+i(W  * 


J J P(tf.  a Mq.-tSo  (tf,rS+  P(r*;tL  ) (r^-q  )C  (rf.tS 

S A.  E A.  — i 1 1 " J ‘ tt‘  ^ 1 *■  ° » J 

j=l  J i=l  ‘ (rf  - tf) 

1 J 


where  the  function  G^ ^ is  evaluated  at  the  point^i^,  q^i 


r 


rf  ■ \ D,+v  + «'-v  ?G  • 


(79) 


'*  ■ i Dv1’ + (1+V  *0  • 


(80) 


A program  (ANISO)  was  written  to  perform  the  calculation  of 
Eqn.  (78).  A listing  of  ANISO  is  supplied  in  Appendix  2.  The  function 
was  evaluated  for  Z01  values  of  and  201  values  of  q^,  both 
spanning  the  interval  (-1,1).  Most  commonly,  the  M and  q arrays  were 
taken  as  equispaced.  However,  when  the  range  of  large  G^+j  or  rapidly 
varying  values  was  found  to  be  highly  concentrated  in  a small  region  of 
the  ^i,  c^grid,  the  spacing  of  the  M and  q arrays  was  adjusted  to  produce 


an  appropriately  high  resolution  in  the  rapidly  varying  region  of  die  G 


n+1 


surface.  The  calculation  was  initiated  with  the  G^f^.q)  computed  from 


the  analytical  expression  of  Eqn.  (77.)  at  all  the  points  on  the  (201  x 201) 


( \ till 

IM,  ql grid.  Evaluation  of  G^  at  the  Gaussian  ordinate  points  (r.,t.  ),  (t. , r.  ) 


n i 3"  3 i 

was  accomplished  by  means  of  a surface  interpolation  subroutine 

(SURFTRP)  based  on  Prenter’s^5^  algorithm  in  which  cubic  Hermite 


polynomials  are  employed  as  the  interpolation  weighting  functions. 


Calculations  based  on  Eqn.  (78)  as  described  above  proved  to  be 
rather  costly  to  operate.  A 32  point  Gaussian  quadrature  was  used  to 
insure  sufficient  accuracy.  The  accuracy  could  be  monitored  in  part  by 


integrating  G^  over  all  U and  q values  and  comparing  the  result  with  unity 


(the  G were  assumed  normalized  to  unit  particle  incidence).  Given  a 
n 


grid  of  201  x 201  (H,q)  points,  and  a 32  point  quadrature,  execution  of 

.7 


the  calculation  consumed  a total  of  201  x 201  x 32  x 32  **  4.  1 x 10 
evaluations  of  the  integrand  of  Eqn.  (78)  for  each  order  of  scattering. 

In  terms  of  C DC  6600  central  processor  time,  a complete  determination 
of  G^(P,  q)  required  1500  secs,  per  scattering  order.  Due  to  the  expense 
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of  these  calculations,  the  ANISO  code  was  exercised  only  for  the  lowest 
scattering  orders  (G^  in  all  cases  and  in  cases  of  extreme  anisotropy). 

As  will  become  evident  in  the  graphs  of  G^fq)  (Figs.  2-6,  2-11),  the  behavior 
of  the  G^  functions  for  screened-Rutherford  scattering  was  observed  to 
approach  that  found  in  the  isotropic  scattering  case  as  the  scattering  order 
is  increased.  For  this  reason  it  was  felt  that  use  of  a more  approximate 
method  for  solving  Eqn.  (59)  could  be  justified  for  the  higher  scattering 
orders  (n^4).  An  algorithm  based  for  a more  economical  calculation,  on 
expansion  of  the  G^  functions  in  a Legendre  series  was  developed  and 
implemented. 


2.3.  4.  3 Numerical  Integration  of  the  G^  Recursion  Equation  via  the 

Legendre  Series  Expansion  Method 

The  form  of  the  integral  recursion  relation  for  the  G functions  which 

n 

lends  itself  more  readily  to  the  Legendre  series  expansion  method  of 
solutions  is  given  by  Eqn.  (58)  where  identification  of  the  angular  variables, 
U and  H',  is  made.  The  later  version  of  this  expression,  Eqn.  (59)  while 
simpler  in  form,  sacrifice  some  physical  significance  through  the  use  of 
dummy  variables  to  achieve  mathematical  simplification.  The  Legendre 
series  method  is  generally  applicable  when  the  series  expansions  are 
performed  in  terms  of  angular  variables. 

With  reference  to  Eqn.  (73),  let  the  Legendre  expansions  for  G and  P 

n 

be  written  as 


and 


Gn(^,,q') 


9 


P(H'-*M) 


= E (U~)  dt  Pt(M)  Pt(M') 
t=0 


(81) 


(82) 
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where  g . (q1)  are  the  Legendre  expansion  coefficients  of  G , d.  are  the 
n,  n v 

Legendre  expansion  coefficients  and  the  are  Legendre  polynomials  of 
order 

If  the  expression  for  G^fU'.q')  given  by  Eqn.  (81)  is  substituted  into 
the  right  hand  side  of  Eqn.  (58)»  then  after  some  algebraic  manipulation 

a recursion  formula  for  the  g's  is  obtained. 

This  approach  to  the  solution  of  the  reduced  source  function  recursion 
equation  has  the  advantage  that  the  summation  of  the  Legendre  series  can 

be  truncated  at  the  point  where  the  coefficients,  d^,  of  the  scattering 
kernel  become  small  enough  to  render  significant  contributions  to  the 
result.  No  such  adaptability  is  afforded  by  the  previously  described 
calculational  procedure  based  on  Eqn.  (78).  Another  advantage  of 
evaluating  Legendre  coefficients  of  G^  is  that  the  relative  magnitudes  of 
the  g . as  4 is  varied,  are  a direct  measure  of  the  degree  of  anisotropy 
of  die  G functions.  Although  this  feature  has  not  been  fully  exploited,  it 
would  be  possible  to  devise  an  adaptive  algorithm  that  utilizes  the  magni- 


tudes of  the  g . 

n,  v 


to  monitor  and  alter  the  Legendre  series  order  of  the 


calculation  as  the  order  of  scattering,  n,  is  increased. 


Numerical  evaluation  of  the  Legendre  coefficients,  g , (q),  was 

n,  v 

accomplished  using  die  method  of  Gaussian  quadrature.  As  in  the  case 
of  the  direct  G (n,q)  calculation  (Eqn.  (78)),  if  the  Gaussian  ordinates 


and  weighting  coefficients  are  respectively  defined  as  and  A^,  then  the 
expression  for  the  g .in  discrete  ordinate  representation  has  the  form 

Df  v 


40 


■ d*t=0‘*4>  • 


|iAi  k Ai  ^.*.<vp**vp*>vrr;»  + 


<YPV 


- vr 


where  L = maximum  order  of  Legendre  series, 
J = order  of  Gaussian  quadrature. 


q.  = H*  = 4’  [(1+q1)  + (1 — q 1 ) §.] 

J J ^ J 


qi  = Mi  = ^ r-a-q')  + d+q')  Sj]  . (85] 

The  values  of  at  q^  and  q_.  are  obtained  by  cubic  spline  interpolation. 

A computer  program  (GNLEG)  was  written  to  evaluate  the  g . 

n,  v 

coefficients.  Provision  was  made  for  varying  the  order,  J,  of  the 
quadrature.  It  was  found,  based  on  the  normalization  criterion,  that  a 
32  point  quadrature  provided  sufficient  accuracy  when  used  in  conjunction 
with  a Legendre  series  calculation  of  sufficiently  high  order  to  adequately 
represent  the  anisotropy. 

Initialization  of  the  GNLEG  program  is  accomplished  in  one  of  two 
ways,  depending  on  the  initial  order-of- scattering.  If  the  calculation  is 
to  begin  with  an  evaluation  of  the  g .(q)  array,  the  input  Legendre 
coefficients  g . (q)  are  computed  by  a call  to  a subroutine  to  evaluate 
G^dLq)  (Eqn.  (77)  followed  by  a Gaussian  quadrature  integration  at  each 
of  the  201  equispaced  q points  (-  1 SqSl)  to  yield 


g2.*,q)  * E Aj  Pi<VC2(V<l) 

j=l 


I 


A 


II 


where  the  A.  and  are  as  previously  defined.  If,  however,  the 

calculation  is  to  be  initialized  at  a higher  scattering  order,  the  201x201 
point  array  G (U,q)  (n»  3),  previously  computed  via  the  ANISO  code,  is 
read  into  GNLEG  from  a mass  storage  file,  and  a 201  point  trapezoidal 
integration  is  performed  over  li  at  each  of  201  values  of  q as  follows 

gn-l,*(q)  = ? P-tW  Gn-lftVq,A'M  ' (87) 

where  A(i  = 0.01. 

The  program  was  written  to  operate  in  two  modes:  1)  evaluation  of 

the  g . at  either  51  or  201  equally  spaced  values  of  q on  the  interval 

(-1,  1);  evaluation  of  the  g^  ^ at  the  21  or  41  modes,  qc>  of  the  Chebyshev 

polonomial  in  q of  order  20  or  40  respectively.  In  the  first  mode  of 

operation,  the  201  points  of  evaluation  coincide  exactly  with  those  of  the 

ANISO  code,  so  that  g^  ^ (q)  (=  G^(q))  corresponds  directly  to  the  output 

of  ANISO  integrated  over  (J.  The  second  mode  of  operation  was  developed 

for  use  at  the  higher  n values  where  the  G^  functions  acquire  a symmetric 

character  about  the  point  q=0.  It  was  found  that  an  adequate  representation 

of  the  q dependence  of  the  g , could  be  achieved  with  far  fewer  than  201 

n, 

q points  by  means  of  a Chebyshev  series  of  order  40  or  20  at  higher  n values 

(=8-10).  The  computational  savings  introduced  by  this  device  provided 

the  means  for  calculating  G^fq)  curves  three  to  ten  times  faster,  depending 

on  the  value  of  the  Rutherford  screening  parameter,  than  was  possible 

with  the  ANISO  code.  Conversion  of  the  g . data  evaluated  at  the 

n,  ** 

Chebyshev  nodes,  qc#  toag^  ^ array  evaluated  at  the  201  equispaced 

q points  was  accomplished  in  the  GNLEG  code  by  using  the  g . (q  ) 

°n , t ’c1 

values  to  obtain  the  coefficients  of  the  Chebyshev  series  representation 
of  gn  and  then  evaluating  the  Chebyshev  series  at  the  desired  201  q 
points.  A listing  of  program  GNLEG  is  given  in  Appendix  2. 


Several  sets  of  G ((J,  q)  data  were  produced  as  a result  of  running  the 
n 

programs  AN1SO  and  GNLEG  in  tandem.  Because  the  data  generated  was 
voluminous,  it  is  stored  in  binary  file  form  on  magnetic  tape.  There  are 

three  forms  of  data  files.  The  first  consists  of  the  raw  output  from 

AN1SO,  G (M,  q),  for  201  values  of  H and  201  values  of  q.  The  second 
n 

file  contains  either  Legendre  coefficient  arrays  g , (q)  or  Chebyshev- 

n,  v 

Legendre  coefficient  arrays.  If  the  number  of  q points  is  51  or  greater, 
the  former  applies.  If  not,  the  file  consists  of  either  21  or  41  g 

n,  v 

coefficients  of  the  Chebyshev  series  in  q.  For  a given  set  of  n,  t values, 

the  length  of  the  stored  array  is  written  at  the  head  of  the  tape  file  so 

that  the  file  reading  program  may  interpret  the  data  properly.  The  third 

file  type  results  from  execution  of  a program  (MAKFIL)  which  collects 

the  data  from  both  AN1SO  and  GNLEG,  by  reading  the  first  two  file  types, 

and,  regardless  of  origin,  transforms  it  into  Legendre  coefficients 

g f for  all  orders  of  scattering,  n,  all  L values,  and  for  201  values 

of  q,  -1  SqsTl.  MAKFIL  is  a bookkeeping  program.  A listing  is  given 

in  Appendix  2.  Another  program,  LOOK,  reads  the  third  file  type  and 

prints  out  the  Legendre  coefficient  arrays  g (q)  in  an  easily  legible 

n,  v 

form.  A listing  of  LOOK,  together  with  a sample  of  the  printed  output, 
is  given  in  Appendix  2. 

Legendre  coefficient,  g . (q) , data  was  generated  for  five  values  of 
the  Rutherford  screening  parameter,  Tl(=  10.  ,1.,0.  41, 0.2,0.  1)  and  stored 
in  the  manner  described  above.  The  computations  were  done  for  orders- 
of- scattering  3 through  10.  In  the  more  highly  anisotropic  cases,  the 
ANISO  code  was  used  to  generate  data  for  n=3  and  n = 4,  while  GNLEG  was 
used  to  calculate  the  data  for  n=5-10.  In  the  remaining  three  cases  ANISO 
was  used  for  n=3  only.  Table  2.3  lists  the  five  T|  values,  their  corre- 
sponding average  scattering  direction  cosines  and  angles,  the  division  of 
computation  burden  between  ANISO  and  GNLEG,  and  the  order  of  the 
GNLEG  Legendre  series  calculation  employed.  Also  listed  in  the  table 
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are  the  orders-of- scattering  for  which  the  various  approximation  modes 
of  GNLEG  are  used:  1)  Legendre  series  only;  2)  Legendre  plus 
Chebyshev  polynomial  of  order  40;  3)  Legendre  plus  Chebyshev  polynomial 
of  order  20.  The  diagram  of  Fig.  2-5  is  a synopsis  of  the  functions  of 
ANISO  and  GNLEG  and  shows  the  interrelation  between  them. 


For  each  of  the  cases  listed  in  Table  2.  3,  a series  of  plots  were 

made  of  the  g , (q)  data.  A separate  CALCOMP  plot  was  made  for  each 
n,  t 

order,  4,  of  the  Legendre  series  coefficient.  Each  of  these  plots  dis- 


plays eight  curves,  each  curve  corresponding  to  an  order- of- scattering 

(n=3- 10).  The  first  set  of  curves  g (q)  (n=3- 10)  is  exactly  equivalent 

D|  U 

to  a plot  of  the  G (q)  curves  since  by  Eqn.  (108) 


M. 

gn.0(‘,)  * /1Gn(M-q) 


The  plots  for  4^1  reflect,  in  a quantitative  way,  the  degree  of  anisotropy 
of  the  scattering  and  indicate  the  relative  importance,  or  lack  thereof,  of 
the  higher  order  Legendre  series  terms. 


Given  are  sample  results  in  Figures  2-6  through  2-10  which  show  the 

Legendre  coefficient  curves,  gn^ (q)  vs.  q,  for  T)=  10.  Figure  2-6  is  a plot 

of  ^(q)  (=Gn(q)),  and  the  remaining  four  graphs  display  the  higher  order 

(■6=1, 2,  3,4)  Legendre  coefficient  curves.  In  all  of  the  plots  to  follow  all 

of  the  G (q)  curves  are  normalized  to  unit  particle  incidence, 
n 
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TABLE  2.  3 


MONO  DIRECTIONAL  SOURCE; 
SCREENED-RUTHERFORD  SCATTERING 
CASES  INVESTIGATED 


Rutherford 

Screening 

Parameter 

T) 

Cosine 

of 

Average 
Scatter- 
ing Angle 
M 

Orders-of- 
Scattering 
Computed 
by  ANISO 

Orders-of- 

Scattering 

Computed 

By 

GNLEG 

Legendre 

Series 

Order 

Used  in 

GNLEG 

Run 

Orders-of- 
Scattering 
for  which 

41  point 
Cheby shev 
Approxi- 
mation used 

Orders-of- 
Scattering 
for  which 

21  point 
Cheby shev 
Approxi- 
mation used 

10.0 

0.  091 

3 

4-10 

4* 

_ 

1.0 

0.  500 

3 

4-10 

7 

5 

6-10 

0.41 

0.  707 

3 

4-10 

9 

5 

7-10 

0.  2 

0.  833 

3.4 

5-10 

12 

6 

8-10 

0.  1 

0.  909 

3.4 

5-10 

12 

6 

8-10 
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MONO  DIRECTIONAL  SOURCE  (at  x=0) 
SCREENED-RUTHERFORD  SCATTERING 

*n,0(q)  = Gn(q) 


Q l=X/S) 


Fig.  2-6 
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MONO  DIRECTIONAL  SOURCE  (at  x=0) 
LEGENDRE  COEFFICIENTS  (SECOND  ORDER)  OF 

Gn(ji,q) 

SCREENED-RUTHERFORD-SCATTERING 
8 7(q);  11=10.  o 

n,  c 


a i =x/6) 


Fig.  2-8 


9 


MONO  DIRECTIONAL  SOURCE  (at  x=0) 

LEGENDRE  COEFFICIENTS  (THIRD  ORDER)  OF  G^.q) 
SCREENED-RUTHERFORD  SCATTERING 

g„  ,(q);  ti=io.o 

n,  i 


It  should  be  noted  that  the  G (q)  curves  shown  in  Figure  2-6  for  T)=  10, 

n 

differ  only  slightly  from  those  shown  in  Figure  2-4  for  the  isotropic 
scattering  case.  In  fact,  by  the  10th  order-of- scattering,  the  curve 
peaks  in  these  two  cases  occur  at  very  nearly  the  same  q value.  This 
trend  toward  isotropic-like  behavior  diminishes  as  7}  is  decreased,  as 
is  evidenced  by  the  curves  shown  in  Figure  2-1  which  is  a plot  of  the 
G^tq)  curves  (7)  = 3 through  10)  for  7)  = 0. 1.  Figures  2,  2-12,  2-13,  2-14 
and  2-15  are  plots  of  the  first  four  (-6=1,2,  3,4,  respectively)  higher 
order  Legendre  coefficient  curves  for  7|  = 0.1.  These  plots  serve  to 
illustrate  the  degree  of  significance  that  higher  order  terms  possess  as 
the  scattering  acquires  a more  highly  anisotropic  character.  From 
Figure  2-15  it  can  be  seen  that  the  magnitudes  of  the  fourth  order 
Legendre  coefficients  for  n=3,4,  5,  6 are  appreciable  when  compared  with 
their  -6=0  counterparts  of  Figure  2-11.  A significant  difference  from  the 
previous  71=10.0  case  in  the  shape  of  the  curves  is  noticable.  The  n=3 
curve  peak  is  higher  than  the  n=4-10  peaks  which  is  not  true  for  71=10.  0. 
Furthermore  a shifting  of  the  peaks  to  the  forward  direction  (source 
direction)  is  detectable.  These  trends  become  more  exaggerated  as  71 
decreases. 

2.  3.4.5  Validation  Test  of  the  P^-Method  Computer  Code 

The  reduced  source  function  data  produced  by  the  recursive  integral 
equation  algorithm  (Secs.  2.3.5.  2-2.  3.  5.  4)  provided  a basis  for  testing 
the  Spencer- Lewis  equation  integration  scheme  of  the  P^-method  code 
(Secs.  2.2.3,  2.2.4,  2. 2. 4. 2,  2.2.5). 
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MONO  DIRECTIONAL  SOURCE  (at  x=0) 
LEGENDRE  COEFFICIENTS  (FIRST  ORDER) OF  G (^,q) 
SCREENED- RUTHERFORD  SCATTERING  ” 
g„  , (q);  T)=0.  1 


(Computed, 
from  ANISO  data) 


GNLEG  DATA 


MONO  DIRECTIONAL  SOURCE  (at  x=0) 
LEGENDRE  COEFFICIENTS  (THIRD  ORDER)  OF  G (n,q) 
SCREENED-RUTHERFORD  SCATTERING  n 

gn  3(q);  H=o.i 


(Computed 
from  ANISO  data) 


{ 


GNLEG  DATA 


q 


One  of  the  original  motivations  for  the  development  of  the  algorithms 
for  computing  the  G^U.q)  functions  was  the  intention  of  supplying  source 
functions  as  input  to  the  P^-method  code.  The  reduced  source  function 
Legendre  coefficients  for  the  n-th  order-of- scattering,  gn^(q),  can  be 
converted  easily  to  Legendre  coefficients,  s”(x,  s),  of  the  more  conventional 
source  functions  as  defined  in  Eqn.  (42).  Recalling  Eqn.  (48)  the  relation 


between  the  S and  G is 
n n 


S (x,H,  s) 
n 


= — W 

Xs  \\) 


n-1  -s/X 

Ui°.M 


The  Legendre  series  expansions  for  and  G^  were  previously  given  as 


S (x,  p,  s)  = E ('t+'^)  (x,  s)  P^(li) 

n t=0 


G (U 
n 


00 

,q)  = E (U|)  gn  ^(q)  P^(H) 

■1=0 


If  term-by-term  equality  is  assumed,  the  relation  between  the  conventional 
and  reduced  source  Legendre  coefficients  is  therefore 


Vx's)  = 7x(n 


i fiV 

n-1)!  \\J 


-s/X  . 

C *n.*(q) 


A numerical  experiment  was  performed  in  which  the  reduced  source 

coefficients  g_  . (q)  for  the  6creened-Rutherford  scattering  case,  T)=10.0, 
3,  -c  3 

were  converted  to  S,  (x,  s)  and  used  as  input  to  the  orders-of- scattering 
version  of  the  P^- method  code  (PLMETHD).  The  g^  ^(q)  data  were  those 

$ 

Orders-of-scattering  version  of  Eqn.  (9). 
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A 


shown  in  Figures  2-6  through  2-10  (n=3  curves)  and  were  obtained  by 

resolving  the  results  of  the  ANISO  calculations,  G^(lJ,q),  into  their 

Legendre  coefficients  g,  . (q)  ; <6=0,  1 , 2,  3,  4.  The  P.  -method  code 

j,  ■v  v 

was  then  used  to  compute  the  flux  function  Legendre  coefficients,  f^(x,  s), 
defined  by  Eqn.  (43),  using  the  integration  scheme  of  Eqn.  (39). 

4 

The  Legendre  coefficients  of  the  source  function  S.  (x,  s)  for  the  next 

3 

order-of- scattering,  n=4,  were  then  computed  directly  from  the  f^(x,  s) 
using  a simple  relation  derived  in  the  following  way: 

Starting  with  Eqn.  (46), 


1 r 

Sn(x,n,s)  = j J P^Ujf^jfx.M'.s)  du' 


and  expanding  the  flux 


f (x,p',s) 
n-  l 


® n- 1 

E (t+|)  ft  (x,s)Pt(H') 


then  if  Eqn.  (9  r),  Eqn.  (46)  and  Eqn.  (82)  are  combined,  one  has 

CO 

E(^|)s”(x,  s)  P^H)  = 

<6=0 

CO  CO  2 

•f  E (t+|)  f.n_1(x,s)  E(j4)d  P (M)  J*  d n1  P (M-)  P.(M') 
x<6=0  2 ^ j = 0 2 J 3 -1  4 J 

When  the  orthogonality  condition  of  the  Legendre  polynomials  is  invoked, 
the  result  is  (asstiming  term-by-term  equality) 


59 


r 


U.  . 

S^(x,  s)  = — f£  (x,  s)  . (89) 

The  reduced  source  function  coefficients  g (q)  were  then  computed 

4 ^ 4 

from  the  S.  (x,  s)  at  s = 1. 0 and  then  plotted.  Tne  S (x,  s)  function  was, 

v V 

in  turn,  used  as  input  to  the  P -method  code,  and  the  above  described 

cycle  was  repeated  six  times  until  all  of  the  g (q)  curves,  n=4-10, 

n,  c 

-6=0-4,  were  computed  by  the  P -method  code..  Plots  of  the  curve  family 

g (q),  n=  3- 1 0 , computed  for  s = l.  0 with  the  mean-free-path  taken  as 
n,  0 

X=0.  1,  are  shown  in  Figure  2-16.  From  this  plot,  it  can  be  seen  that  the 
results  obtained  by  the  P -method  integration  of  the  Spencer- Lewis 

v 

equation  are  extremely  close  to  those  obtained  by  the  integral  equation 
method  (Fig.  2-6).  Similar  agreement  was  obtained  for  the  higher  order 
{,  terms.  The  agreement  between  the  two  methods  leads  to  a favorable 
conclusion  regarding  the  validity  of  the  P^-method  integration  scheme. 


2.3.5  Point  Isotropic  Source;  Screened-Rutherford  Scattering 
The  integral  recursion  equation,  Eqn.  (59),  for  the  reduced  source 
functions  G^(li,q)  was  derived  independently  of  source  geometry  consider- 
ations. To  exploit  the  flexibility  of  this  method,  a series  of  computer 
runs  of  the  ANISO  and  GNLEG  codes  was  performed  for  a second  source 
geometry,  the  point  isotropic  source,  with  screened-Rutherford  scattering. 
A further  motivation  for  performing  these  calculations  was  provided  by  the 
fact  that  the  G^  and  G^  functions  for  the  point  isotropic  source  geometry 
in  an  isotropically  scattering  medium  could  be  calculated  by  another 

method,  that  of  Ganapol  and  Grossman^^.  Thus  a comparison  of  the  G 

n 

functions  computed  via  Eqn.  (59)  with  the  same  quantities  calculated  using 
a completely  independent  method  was  possible,  since  isotropic  scattering 
could  be  closely  simulated  with  the  screened-Rutherford  scattering  formula 
if  1)  were  chosen  sufficiently  large. 
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2.  3.  5. 2 Results  for  Point-Isotropic  Source,  Screened-Rutherford 
Scattering 

The  integral  recursion  algorithm  (Eqns.  (78),  (83))  was  exercised 

for  three  screened-Rutherford  scattering  cases.  G (p,  q)  data  sets  were 

n 

produced  in  the  same  manner  as  in  the  monodirectional  source  case,  by 
means  of  sequential  running  of  programs  AN1SO  and  GNLEG.  The  three 
screening  parameters  values  u sed  in  these  runs  wereT]=  10^,  10.0,  0.1; 


the  first  of  these  being  used  to  simulate  isotropic  scattering.  The 
computations  were  done  for  orders-of- scattering  2 through  10.  Where 
the  scattering  was  most  highly  anisotropic,  T)  = 0.  1,  the  three  lowest 
scattering  orders  2,  3,4  were  computed  with  the  ANISO  code,  and  orders 
5-10  were  handled  by  GNLEG.  For  the  other  two  cases,  ANISO  was  used 
to  obtain  G^  and  G^,  while  the  remaining  seven  orders  were  obtained  via 
GNLEG.  Owing  to  source  symmetry,  the  ANISO  runs  consumed  one-half 
as  much  computer  time  as  the  corresponding  runs  for  the  monodirectional 
source.  It  was  therefore  felt  that  some  of  this  saving  could  be  used  to 
obtain  more  accurate  determinations  of  the  lower  scattering  orders  before 
switching  over  to  the  more  approximate  computation  (GNLEG). 


TABLE  2.4 

POINT  ISOTROPIC  SOURCE; 

SCREENED  RUTHERFORD  SCATTERING; 

CASES  INVESTIGATED 

R utherford 

Cosine 

Orders-of- 

Orders-of- 

Legendre 

Orders-of- 

Orders-of- 

Screening 

of 

Scattering 

Scattering 

Series 

Scattering 

Scattering 

Parameter 

Average 

Computed 

Computed 

Order 

for  which 

for  which 

T\ 

Scatter- 

by  ANISO 

by 

Used  in 

41  point 

21  point 

ing  Angle 

GNLEG 

GNLEG 

Chebyshev 

Chebyshev 

M 

Run 

Approxi- 

Approxi- 

mation  used 

mation  used 

6 

-6 

10 

10 

2,3 

4-10 

1 

5-10 

- 

10.  0 

0.  091 

2.3 

4-10 

3 

5-10 

- 

0.  1 

0.  909 

2,3,4 

5-10 

12 

6.7 

8, 9, 10 
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A series  of  plots  were  made  of  the  g , (q)  data  for  the  three  cases 

n,  v 

listed  in  Table  2.4.  For  illustrative  purposes,  a plot  of  g (q)  (n  = 1-10) 

6 n» 0 

for  1)  = 10  , essentially  isotropic  scattering  is  given  in  Fig.  2-17.  Some 

of  the  data  shown  in  this  graph  will  be  compared  with  the  results  of 

Ganapol^^  for  isotropic  scattering. 


2.  3. 5.  3 Comparison  with  Ganapol's^^  Results 

Time -dependent  orders -of- scattering  calculations  for  a point- 

isotropic  source  in  an  isotropically  scattering  medium  were  performed 

(10) 

by  Ganapol  and  Grossman  in  1973.  The  paper  presents  an  analytical 
method  based  on  complex  variable  analysis  for  calculating  the  n-th 
scattered  flux.  Above  the  second  order  of  scattering,  the  implementation 
of  this  method  becomes  rather  involved.  However,  the  following  two 
expressions  emerge  for  the  once  and  twice  scattered  flux  functions  if 
these  authors'^  ^ prescription  is  followed  (in  our  notation): 


- s /X 


f^x,  s)  = 


[• 


2 in  2 - in(l+q)  - in(l-q)  + q in 


l(i+q>, 


a 


(90) 


and 


*2(x,  s)  = -|  s e 


^2  in  2 -3  -2q  [1  + (in2-l)2]  + | (1  + q2) 

- ^ (1-q)2  + | (1+q)2  [in(l+q)-2]  [in(l+q)-l] 
'(  + \ d-q)2  [in(l-q)-2]  [in(l-q)-l] 


+ e y [2q_i . 

k=l  Lp.l  -E-ik 


-\ 


. 2k+2 

2k(l -q)  -q 


k (k+1)  (2k+  1 ) 
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(91) 
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The  above  quantities,  f^  and  f^,  can  be  transformed  into  reduced  fluxes 

readily  enough  via  Eqn.  (47).  Furthermore,  the  reduced  source  results, 

G (q),  obtained  by  application  of  the  integral  recursion  formula,  Eqn.  (59), 
n 6 

for  T)=10  can  also  be  transformed  into  reduced  flux  functions.  If  the 
relation  between  the  reduced  source  and  reduced  flux  functions 
is  integrated  over  all  possible  final  cosine  values,  |i,  the  following 
results; 


Gn(q)  = J dpCn(p,q) 

= J*  dp  J*  dp'  P(p’-*p)  F .(p',q) 

-1  -1 


= J*  d p'  F (li',  q) 

-1 


(92) 


Fn-1^ 


since 


J*  dp  P(p'-*p)  = 1 

-1 


(93) 


From  the  above,  it  is  clear  that  the  values  obtained  here  for  G (q)  and 

6 ^ 

G3(q),  with  71=  1 0 , should  closely  match  Fj(q)  and  F2(q),  respectively, 

obtained  with  the  algorithm  of  Ref.  (10).  Table  2.5  presents  a comparison 

of  these  quantities. 
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TABLE  2.5 

COMPARISON  OF  REDUCED  SOURCE  FUNCTIONS 
WITH  RESULTS  OF  GANAPOL  AND  GROSSMAN<10) 


F1 

(Computed  from 
Ref.  10) 

G2 

(T)=106) 

F2 

(Computed  from 
Ref.  10) 

°3 

<H=106) 

.69316 

. 69277 

. 84520 

. 84408 

.68814 

. 68776' 

.83293 

. 83178 

. 67301 

. 67262 

. 79640 

.79519 

. 64745 

. 64704 

. 73645 

.73524 

.61087 

.61044 

. 65472 

. 65358 

. 56233 

. 56188 

.55385 

.55274 

. 50040 

. 49992 

. 43748 

.43643 

.42272 

. 42220 

. 31108 

.31012  | 

.32508 

. 32455 

. 18301 

.18219  1 

. 19852 

. 19795 

. 06761 

. 06705 

0. 

0. 

0. 

0. 

Only  positive  q values  are  given  here  since  the  F and  G functions  are 
symmetric  in  q. 
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3.  SAW  Device  Investigations 

3. 1 Introduction 

During  the  period  covered  by  this  contract,  our  efforts  were  directed 
towards  utilizing  and  extending  the  analyses  and  programs  developed 
previously  for  the  investigation  and  design  of  SAW  transducers  which  began 
under  USAF  Contract  No.  F19628-74-C-0049.  A comprehensive  tabu- 
lation of  the  salient  data  and  plots  resulting  from  this  body  of  work  can  be 
found  elsewhere;**  however,  a representative  example  of  the  work 
performed  involving  a 3-phase  IDT  and  a listing  of  the  most  important 
studies  executed  is  presented  here.  Since  the  key  programs  required  for 
these  efforts  are  also  expected  to  form  the  nucleus  of  tools  for  future 
work,  special  attention  has  been  given  to  the  development  of  user-oriented 
documentation  for  their  operation. 

3. 2 3 -Phase  Transducers 

The  3-phase  IDT  is  of  considerable  practical  interest  because  it  has 
the  desirable  property  of  radiating  most  of  its  SAW  energy  in  one 
direction  along  a substrate  surface.  With  a view  towards  designing  this 
class  of  transducer  it  was  necessary  that  the  acoustic  responses  of  the 
triplets  of  electrodes  comprising  such  devices  be  obtained. 

To  obtain  quantitative  benchmarks  for  such  work,  a test  case  was 
analyzed  in  which  a full  array  of  1 3 triplets  (39  electrodes)  was  subjected 
to  complex  potentials.  Our  previous  efforts  had  only  required  formu- 
lations in  terms  of  real  potentials,  but  numerical  results  calculated  by 
others  for  the  response  of  3-phase  transducers  have  thus  far  been  based 
on  complex  potentials.  The  analysis  and  programming  operations  re- 
quired for  this  investigation  serve  to  illustrate  the  manner  in  which  this 
and  the  other  studies  were  approached  and  undertaken. 

To  appear  in  a forthcoming  in-house  report. 
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3.  3 Theory 

The  electric  displacement,  D(x'),  normal  to  the  interface  between  an 
array  of  electrodes  and  a piezoelectric  substrate  is  related  to  the  (real) 
potentials,  V(x),  applied  to  the  electrodes  through  a linear  relationship: 

V(x)  = L{D(x'))  , (1) 

where  L is  the  appropriate  linear,  Fredholm  integral  operator  of  the 
first  kind^^ governing  electrostatic  interactions  among  line  charges 
residing  on  infinitely  thin  electrodes.  Symbolically, 


D(x')  = L { V(x) } 


The  Fourier  transform  operator,  F»  yields 


D(k)  = F{D(x')] 


= FL1  { v(x) } 


= DR(k)  + i Dj(k) 


In  view  of  the  linearity  of  the  operators  it  follows  that  for  the  complex 
potential 


V (x)  + i V (x) 
a b 

FL'1  (v(x)} 


FL’1  fva(x)}  + i FL1  {vb(x)3 

Da(k)  + i Db(k) 


DR(k)  + iDa(k)  + i Db(k)  + i 


A A 1 A 

°R(k)  “ DI(k)  + 1 + 


i |^Db(k)  + i Db(k)] 
i ^Da(k)  + Db(k)J  . 


With  the  acoustic  response  of  an  electrode  or  group  of  electrodes 
given  by 


A(k)  * /[kf  D(k)  , (6) 

it  is  clear  that  A(k)  can  be  found  for  a complex  potential  by  determining 

the  D-fields  due  to  V^x)  and  separately  and  linearly  combining  the 

results  as  indicated  above.  The  problem  thus  became  one  of  obtaining 

expressions  for  D&(k)  and  D^(k)  in  terms  of  v(x)  and  v|x) . This  was 

a b 

accomplished  in  several  stages: 

1.  {V  } was  inputted  to  program  GAL.3AT  which  then  computed  surface 

^ ... 

charge  density  expansion  coefficients,  CU  . 

a n 

2-  (VJ  was  also  inputted  to  GAL.3AT  and  yielded  C^. 
b bn 

A 

3.  The  expansion  coefficients  were  analytically  related  to  D (k)  and 

A ^ A 

4.  Program  TRPL  was  then  used  to  evaluate  D (k),  D (k),  and  A(k). 


The  complex  potentials  applied  to 

as  follows: 

the  3-phase  array  were  defined 

v E ei(j-l)120° 

j 

j = Ml)  39 

(7) 

with  V^=  cos  (j-1)  120 

21 

(8) 

and  V^)  = sin  (j-1)  120  . 

D 

(9) 

GAL3AT  yielded  { C0)]  and 

7 » a n J b n J 

The  relationship  between  these 

coefficients  and  D(k)  will  now  be  derived. 


3.  4 Derivation  of  D(k)  and  D(v,  Tl) 

For  the  middle  triplet  of  electrodes,  the  Fourier  transform  of  the 
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normal  component  of  the  electric  displacement  under  the  electrodes  is 
given  by 


L+s/2 
D(k)  = j 

L-s/2 

-L+s/2 

■ J 

-L-  s/2 


..  ikx'  , , 
D(x')  e dx1 


ilex' 

D (x1)  e dx' 


+ 


L+s/2 

J D+(x')  elkx'  dx’ 

L-  s/2 


s/2 

+ f D (x1,  e**'  dx' 
- s/2 


(10) 


where  D (x1),  Dg(x'),  and  D+(x')  are  the  electric  displacements  at  the 
surfaces  of  the  left,  middle,  and  right  electrodes  of  the  central  triplet. 
Between  the  electrodes  there  is  no  free  charge;  hence,  D(x')  in  these 
regions  is  zero. 

If  the  D-field  under  each  electrode  is  expanded  in  terms  of  the 
normalized  spatial  variable  u,  namely  as 


-1/2  N-l 

D(u)  = (1-u)  V C T (u) 

n n 

n=0 

and  substituted  into  (10),  D(k)  becomes  equal  to 


. s ikL 
D(k)  = je 


s 

+ 2 


N-l 

i 

„ -1/2 

E 

c(+) 

n 

j 

2 

(1  -Uj  ) 

n=0 

-i 

N-l 

/ \ 

i 

, -1/2 

E 

c ” 

n 

j 

d-u2) 

n=0 

-i 

N-l 

i 

r 

-1/2 

E 

c(0) 

n 

I 

2 

(1  -u3^) 

n=0 

-l 

n'  r 


n 2' 


n 3' 


ilclu. 


•i  8 

lie— u. 


•i  8 

lk-ru. 
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I kttHI 


where  u,  = 


u„  = 


u,  = 


TJ.) 


8 = 


(x*  - L)/(s/2) 

(x’  + L)/ (s/2) 
x'/(s/2) 

n^1  order  Chebyshev  polynomial  of  the  first  kind 
width  of  an  electrode 


L»  = center-center  separation  between  adjacent  electrodes 

C<+’  ’ ^ = (unknown)  expansion  coefficients  of  the  electric  displace- 
ment under  the  +,  -,  or  0 electrode. 


With  the  change  of  variables  u a cos  0,  integrals  of  the  form 


TT 

/ 


s 

ik—  cos  0 .n  , _ 

cos  0 e 2 d0  = TTi  J (ks/2) 

n 


th 


(13) 


result,  where  J (•  ) is  the  n order  Bessel  function  of  the  first  kind, 
n 

Collecting  terms  yields 


. N-l 

— D(k)  = e 2-»  C1  1 J (k  s/2) 

TTS  n n 


+ e_ikL  V C(_)in  J (k  s/2) 
2— < n n 

n=0 


(14) 


N- 1 

C<0)  in  J (k  s/2) 
n n 


At  this  point  it  is  useful  to  relate  the  fundamental  wavelength,  XQ, 
of  the  acoustic  waves  to  the  electrode  spacing,  L.  For  a 3-phase  device 
Xq  = 3L,  and  it  follows  that 
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ks/2  = kLs/(2L)  = kLl)/2 


(15) 


e kQ  v L7]/2 
= (2tt/X0)  vLT)/2 
= TTl)  v/  3 

where  v is  a convenient  dimensionless,  normalized  parameter: 

A 

V = f/f^  = XQ/X.  Inserting  this  into  the  previous  formula  for  D(k) 
yields  an  expression  in  terms  of  the  more  convenient  parameters  T)  and  v: 

A A A 

D(v.T))  = Dr(v,T))  + i Dj(v,  T))  (16) 


where 


(N-D/2 


Dr(v,T})  = 


c f \ r (0)  ( 

L.  (-1)n(J2n(j^  Ic2n  + (< 

n=0 


c,.  + (<>  ♦ <4;>)cos^v~|(17) 


J 


+ J 


2n+ 1 (" 


'>)  ft',  - «=£,] 


and 


(N-l)/2 


Dl(v,„)  = £ <-1)D  {J2„(H  • C2«]  '“T* 

. (?  T|v)  («&,  ♦ 


(18) 


+ J 


~ ■ — ' - 


The  expressions  thus  derived  become  equal  to  D^(v,Tl)  anc*  ^ (v,  T))  when 

{v^Mis  applied  to  the 

D 


/?  i A b A b 

{vu'l  is  used,  and  D (v,  7))  and  D (v,  7))  when 

^ X\  1 


GAL3AT  program. 


3.4.1  Programming  and  Associated  Tasks 

Prior  to  running  program  GAL3AT  for  the  determination  of  the 
{C^},  two  types  of  input  must  be  generated: 

a.  the  sequence  of  potentials  applied  to  the  electrodes,  and, 

b.  the  off-diagonal  matrix  elements  relating  potentials, 

{V^:  j = l,  2, . . . , J},  to  charge  density  expansion 

coefficients,  {C^:  n=0, 1 , . . . , NN- 1 ; j = l , 2,  . . . , J}. 
n 

For  runs  involving  a small  number  of  different  polarity  sequences, 
the  {V0*}  were  usually  punched  onto  NAMELIST  cards  that  were  then 
read  by  GAL3AT,  whereas  for  production  runs  requiring  many  sequences 
it  was  more  convenient  to  create  and  store  each  sequence  on  a disk  file 
that  GAL3AT  could  then  access  and  read. 

In  the  case  of  the  3-phase  transducer,  two  sets  of  potentials  were 

punched  onto  NAMELIST  input  cards:  the  set  {V^}  s {cos  (j-1)  120° : 

21 

j = l , 2,  . . . , 39]  which  was  punched  as 


SVSEQ  POLO  >=1 . 1 . 1 . 1 . 1 . »-.5>-.5» 
POL  O 9>=1 . ?•-- 5»l.»-.5»~.5» l.»-.5f-.5»l.»-.5»-.5»l.»-.5»-.5>l. 

PDLC37>=1. 

and  the  set  { vj^ ) ={sin(j-l)120°:  j = l,2,  ...,39)  which  was  punched 
on  another  set  of  VSEQ  NAMELIST  cards. 

The  off-diagonal  matrix  elements  for  the  3-phase,  39  electrode 

array  was  created  by  program  PS1GEN,  the  matrix  elements  corresponding 

(12) 

to  those  previously  defined.  * ’ 
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L 


r 


3.4.2  Task  Sequence  for  3-Phase  IDT  Study 

1.  Define  one  or  more  sequence  of  potentials,  {V^s  j = l , 2,  . . . , j}, 
to  be  applied  to  the  electrodes  of  an  array.  Punch  the  data  on 
NAMELIST  input  cards  or  store  on  disk. 

2.  Run  program  PS1GEN  to  obtain  the  off-diagonal  matrix 
elements  for  an  array  having  a specified  maximum  number 
of  electrodes  and  T]- value. 

3.  Run  a GALERKN  type  program  (GAL3AT  in  the  case  of  the 

3-phase  transducer)  for  the  calculation  of  the  {C^}.  Store 
/ • \ ^ 

the  {CU  } on  punched  cards  and/or  on  disk, 
n 

4.  Use  the  {C^3  as  input  to  an  acoustic  response  program 

n 

(TRPL  in  the  case  of  the  3-phase  IDT).  Print  or  plot 
acoustic  response  information;  print  normalized  values  of 
|a(vq)  | for  de  sign  tables  if  desired. 


3. 5 Results 

The  acoustic  response  of  the  central  triplet  in  the  array  was  evalu- 
ated for  11=0.  5 at  V=1  and  V=2.  The  ratio  | A(V=2)  | | A(V=1)  | ^ was 

computed  and  found  to  equal  -7.  9&  db.  The  only  available  experimental 
data  we  were  able  to  obtain  came  from  work  done  by  Texas  Instruments, 
Inc.  where  a value  of  -8db  was  reported.  While  this  was  considered  to 

be  excellent  verification  of  o>  r analysis  and  programs,  other  values  of 
2 2 

| A (V)  j / |A(v=l)  | continue  to  be  sought. 

3 . 6 Tabulation  of  Major  Computational  Tasks 

The  major  computational  tasks  performed  during  the  contract  are 
listed  below  following  the  definitions  of  parameters  and  variables. 


” — 
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Definitions 


-1/2  NN'1 

o (u)  = (1-u2)  ^ Cn>  Tn(u)  (19) 

3 n=0 

= surface  charge  density,  or  normal  component 
of  the  electric  displacement,  on  the  j-th 
electrode  in  an  IDT  array. 

u = normalized  position  on  the  j-th  electrode: 

-1  * u * 1 

T (u)  = n-th  order  Chebyshev  polynomial  of  the  first 
kind. 

= charge  density  expansion  coefficients 
n 

j = 1(1) J,  -where  J = total  number  of  electrode 
positions  in  the  array. 

NN  = total  number  of  terms  in  the  expansion  for 
a given  electrode. 

T)  = electrode  width/center-to- center  separation 
= 0.  5 unless  otherwise  noted. 


B.  {c(j)3  data  for 
n 


1. 

Source  weighting 

J=17;  j = 9;  NN=6 

2. 

Full  array,  alternating  polarities 

J=17;  j = 1 ( 1 ) 9 ; NN=6 

3. 

Full  array,  alternating  polarities 

J=17;  j=l  (1)9;  NN=6;  1)= 

4. 

F.  Sandy:  621  cases 

J=17;  NN=6 

a.  378  middle  electrode  cases 

b.  243  end  electrode  cases 

5. 

Slowly  converging  coefficients 

J=1 5;  NN=10;  7)=.  88 

6. 

SAW DESIGN  program:  729  cases 

J=21;  j = 9;  NN=6 

Hartmann  Tables  and/or  Acoustic  Response 

1. 

J=17;  j = 9;  vsf/f^l 

2. 

J=17; j=9;  v=5 

3. 

J=17;  j = 9;  v=9 

4.  J=21;  j=l(l)21  acoustic  response 


D.  Smith  Tables  - 2 nearest  neighbors  - J=17 

1.  Expansion  coefficients  for  (T]-.5)m  series 
m = 0(l)5;  Tl=.  1(.  1).  9;  NN=6 

2.  Same  as  #1  with  NN=10  and  scaling  factor  = -.506767  to  agree 

(3) 

with  Smith's  work. 

3.  13  extra  cases 

4.  91  extra  cases 
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3.6.2  Double  Electrode  Arrays 


{C^}  and  related  data 
n 

1.  Off-diagonal  matrix  elements  for  J=22;  NN=6 

2.  {C^}:  J=16;  NN=10;  j=l(l)l6 

n 

3.  " J=22;  NN=10;  j = l(l)18  (benchmark  test) 

4.  " J=22;  3 nearest  pairs  variations 

5.  " J=22;  NN=8;  for  Hartmann  table 

Hartmann  Tables  and  Spectral  Weighting  Data 

1.  J=22  (11  pairs);  j=ll,  12;  NN=8;  V=1 

2.  J=22  (11  pairs);  j=ll,  12;  NN=8;  v=3 

3.  J=18 

4.  {C(j)3  and  |a(v)/a  (})  | vs.  v for  J=18;  j=l (1)10 

n 7 f l u 

5.  |a.(v)/a.(1)|  vs.  v for  J=l6 

3.6.3  Triple  Electrode  Arrays 

{C^}  data  for  39  element  array  (J=39) 
n 

1.  j=19#20,21  and  j = 1 (1)9  68  cases 

a.  Polarity  sequence  composed  of  {l,0,  0]  triplets 

b.  Polarity  sequence  composed  of  {0,1,0}  triplets 

c.  Polarity  sequence  composed  of  {o,  0,  l)  triplets 

2.  54  extra  cases 

{<£'>}  for  special  series  of  triplets  using  the  polarity  sequence 
{-1,  2,-1}  with  3 triplets  withdrawn  from  the  array. 


r 


C.  {c  *}  for  3-phase  transducer;  J=39;  j = 1 9,  20,  21;NN=6. 
n 

1.  For  real  part  of  complex  potential 

2.  For  imaginary  part  of  complex  potential 


D.  A(V)  Calculations 

1.  For  {C^3  corresponding  to  real  part  of  complex  potentials. 

2.  |A(V)  J for  4 cases. 

3.  A(v=2)/A(v=l ) for  different  electrodes  in  the  39  element  array 
of  the  first  case  in  D.  2. 
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Phase-Constrained  Guided  Modes  In  Dielectric  Slabs 


4. 1 Statement  of  the  Problem 

The  purpose  of  this  effort  was  to  determine  the  refractive  index 
profile,  n(x),  of  a sandwich  of  uniform,  homogeneous,  lossless  dielectric 
slabs  that  would  bring  the  propagation  modes  of  monochromatic  electro- 
magnetic waves  launched  into  the  guiding  structure  into  phase  after 
traveling  a specified  distance,  b,  along  the  propagation  axis.  In  addition 
to  the  phase  constraints,  several  other  requirements  were  imposed  on 
the  problem: 

1.  n(x)  should  be  symmetric  about  the  middle  slab  and  decrease 
monotonically  away  from  it.  See  Fig.  4-1. 

2.  The  slabs  were  to  be  immersed  in  air,  with  the  refractive 
indices  of  the  outer  slabs  fixed  at  values  of  1.50  while  the 
middle  one  was  to  assume  the  value  of  1.5  3. 

3.  For  the  propagation  mode,  characterized  by  the  propagation 

vector  p , the  following  "1  p / layer”  condition  wa 6 

z A v v 

, o 

imposed: 

n^<p^<n^1  for  t=l , 2,  . . . , LL 

where  LL  = the  total  number  of  modes  supported  by  the  guiding 
structure. 

4.  2 Phase  Constraints 


The  phase  constraints  were  formulated  by  requiring  that  the  phase 
difference  between  adjacent  modes  be  an  integer  multiple  of  2tt  after  the 
modes  propagate  a distance  b.  This  was  expressed  by 


r 


or 


(“ui  - »t)  (r)  ■ *■ 


1 , Z|  « • • , LL- 1 


where  the  1^  are  integers. 

In  view  of  the  integer  constraints  no  obvious  method  for  solving  this 
problem  presented  itself.  The  technique  finally  developed  was  a simple 
variant  of  the  Newton-Raphson  algorithm  and  will  now  be  described. 

A refractive  index  profile  {n°,  was  initially  assumed,  and  the 
eigenvalues  (m?)  were  computed  for  it.  Substituting  the  into  (1)  leads 

4 v 

to  the  following 


_b  f o o"| 

Xo  LU1  " = 


x4  + 


^~1 . 2. ...  | LL- 1 


(2) 


where  e.^0  in  general.  The  integers  were  not  assumed  at  the  outset  but 

V 

were  a consequence  of  specifying  an  initial  profile  and  value  for  (b/X^). 
Since  the  physical  situation  of  most  interest  was  the  one  for  which 
(b/X  ) >>  1,  it  follows  that  Ic./l.  |<<  1.  The  e.  were  treated,  therefore, 
as  small  errors  arising  from  the  use  of  a refractive  index  profile  that 
deviated  from  the  ideal  one,  the  one  that  would  lead  to  e^=0. 

In  the  course  of  the  investigation  two  algorithms  were  developed  for 
driving  the  e^-*0: 


LL- 1 de 


I. 


II. 


e . « E 

4 i=l 


+ 


LL.-1  &e, 


e . « E 

* i=l 


r — An.  + 
3n.  l 
i 


(3) 


(4) 


'L— 1 , 2,  • • • , LL-1 
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The  A£^  or  Am  obtained  from  the  inversion  of  the  corresponding  system 
equations  was  then  used  for  the  next  iteration,  the  improved  profile  being 
given  by 


s; 


NEW 


■ <fLD  ♦ 


or. 


(5) 


II. 


NEW 

n. 

1 


OLD 

n.  + An. 

i l 


(6) 


The  converga nee  of  the  Am  and  A?^  was  found  to  be  rather  slow  from 
one  iteration  to  the  next;  however,  a logarithmic  plot  of  these  quantities 
vs.  iteration  number  revealed  a very  strong  linear  variation.  It  was 
possible,  therefore,  to  model  the  asymptotic  values  of  m and  §.  ' in 
closed  form  using  the  results  from  only  the  first  few  iterations.  The 
extrapolation  worked  very  well,  and  for  9 slabs  the  path  difference  error 
between  adjacent  modes  was  less  than  10  ^ lengths  over  an  axial 

propagation  distance  of  .85  xlO^  waveleng  er  algorithms  could 

have  been  developed  but  these  two  worked  s ently  well,  at  least  for 

this  stage  of  the  study.  Numerous  tests  were  conducted  to  check  the 
accuracy  of  the  eigenvalues  and  to  insure  that  all  of  the  eigenvalues  were 
being  identified  in  the  root- searching  process.  For  3 slabs  surrounded 
by  air,  7-9  significant  digits  were  obtained  using  single  precision 
arithmetic. 


4.3  1 p. /Layer  Constraints 

After  some  experimentation  it  was  found  necessary  to  satisfy  the 
1 p^/layer  constraints  before  attempting  to  satisfy  the  phase  constraints. 
Satisfying  both  constraints  could  not  be  accomplished  if  the  order  was 
reversed. 

To  handle  the  1 p^/layer  conditions  a direct,  albeit  brute  force 
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method  was  employed.  Holding  the  values  of  {m,  fixed  with  =1.50 

and  n s 1.53,  the  corresponding  {p.  } were  calculated.  The  same 

LLff  1 v 

sets  of  {m,  5^)  were  used  again  but  this  time  the  were  scaled  up  (or 
down)  by  a constant  factor  or,  and  a new  set  were  computed.  This 

process  was  repeated  many  times  using  a DO -loop.  In  this  fashion  the 
correct  number  of  p's,  L.L,  could  be  found  for  at  least  one  of  the  sets  of 

I I 

= a g^).  Using  one  (or  more)  of  these  sets  of  g^  the  same  procedure 
was  repeated  on  the  } except  that  n^  was  kept  fixed  at  1.  50  and  n^^  j 
at  1.53.  In  this  way,  and  with  a few  extra  "fine  tuning"  runs,  we  were 

I I 

able  to  obtain  a profile  {n.,  5-3  that  at  least  satisfied  the  1 p. /layer 

II  v 

requirement  for  as  many  as  17  slabs. 

i i O O 

Using  the  {m,  g^)  thus  obtained  for  a "starting"  profile,  [n.,  g^  }, 

the  program  to  vary  either  g^  or  n according  to  (3)  or  (4)  was  then  used 

to  attempt  to  satisfy  the  phase  (or  integer)  constraints.  While  we  were 

able  to  satisfy  both  the  1 p^/layer  constraints  and  the  phase  constraints 

for  a 9 slab  sandwich,  we  were  not  able  to  simultaneously  satisfy  both 

for  17  slabs.  There  appeared  to  be  a problem  with  the  stability  of  the 

algorithm,  the  loss  of  significant  digits,  or  the  nonexistence  of  solutions 

that  simultaneously  satisfy  all  the  constraints  for  17  or  more  slabs. 

There  was  insufficient  time  to  see  how  well  the  algorithm  worked  on  13 

or  15  slabs. 

4.  4 Determination  of  Eigenvalues 

The  speed  and  accuracy  with  which  the  eigenvalues  could  be  computed 
were  very  important  factors  in  this  investigation.  The  analysis  developed 
by  Canosa  and  DeOliveira^  ^ was,  therefore,  quite  attractive  for  the 
problem  at  hand.  They  analyzed  a problem  with  the  boundary  conditions 

i 

t|f(o)  = t(U)  = 0,  whereas  in  our  problem  and  i|»  were  continuous  at  all 
interfaces;  consequently,  some  modifications  to  their  secular  equation 
had  to  be  made. 
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One  of  the  reasons  speed  and  accuracy  were  of  crucial  interest  to  us 


is  reflected  by  the  manner  in  which  the  partial  derivatives 


and 


an. 

1 


were  evaluated.  While  these  quantities,  or  the  partial  deriviatives  of  the 
characteristic  equation  with  respect  to  5 and  n.,  could  have  been  found 
analytically,  the  task  would  have  been  very  laborious,  and  more  im- 
portantly, prone  to  errors.  To  fully  appreciate  the  latter  one  would  have 
to  examine  not  only  the  functional  form  of  the  characteristic  equation  as 
the  eigenfunctions  composing  it  changed  (for  eigenvalues  in  different 
layers),  but  also  the  programming  and  debugging  ramifications  of  such 
an  effort  while  working  under  deadline  constraints.  The  partial  deriva- 
tives were,  therefore,  approximated  by  finite  differences  using  the  same 
code  that  computes  the  eigenvalues.  By  slightly  incrementing  one  of  the 
parameters  of  the  profile  {n°,  §°}  at  a tim~,  e.g.  , -♦  §£  + the 

altered  profile  would  yield  a new  set  of  slightly  different  eigenvalues  and 

o 

a new  set  of  (§k  + A§k)*  The  quotients  thus  obtained,  viz.  , 


ciig k 4 - cf.(V 

^k  “ a^k 


could  be  and  were  easily  and  accurately  computed. 


(7) 


4.  5 Eigenfunctions  and  Orthonormalization 

With  the  determination  of  the  eigenvalues  completed,  the  next  step 
was  to  obtain  the  normalized  amplitudes  of  the  eigenfunctions  and  to  test 
the  orthonormality  among  the  eigenfunctions.  Orthonormality  between 
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(8) 


the  j and  k modes  requires  that 

2 f (k) 

N J *(?)  *(?)  <*5  = 6jk 

- oo 

where  the  ijr's  are  the  unnormalized  eigenfunctions.  By  setting  j=k  the  N 

K 

for  each  eigenfunction  could  be  determined.  The  integral  was  evaluated 
analytically  in  the  air  regions  and  numerically  in  the  slabs.  For  the 
latter  the  integration  was  divided  into  3 parts:  the  middle  slab  and  the 
two  surrounding  regions.  48-point  Gauss  quadrature  was  used  in  each 
of  the  3 regions.  In  this  manner  all  the  N's  were  determined  and  used 
to  scale  the  eigenfunctions  to  the  desired  normalization. 

4.  6 Summary  and  Recommendations 

A numerical  scheme  was  devised  for  obtaining  a refractive  index 
profile  that  would  support  a set  of  eigenvalues  which  satisfied  certain 
design  constraints.  A variant  of  the  Newton- Raphs on  method  was  imple- 
mented in  the  algorithm,  as  an  expedient  due  to  scheduling  deadlines. 

More  sophisticated  algorithms  are  available  which  could  be  implemented 

in  future  work  if  a larger  number  of  slabs  is  to  be  treated  in  this  problem. 

(2) 

Eranin's  algorithms  in  particular  should  be  examined  in  this  regard. 
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Fig.  4-1 


Refractive  Index  Profile  of  Multislab 
Dielectric  Sandwich  In  Air 
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APPENDIX  1 


Program  PLMETHD 


Program  PLMETHD  computes  the  electron  flux  Legendre  coefficients 
and  associated  physical  quantities  (energy  deposition,  charge  deposition, 
current  profiles)  for  the  scattering  of  electrons  in  a slab.  The  algorithm 
is  the  P method  of  solution  of  the  Spencer- Lewis  equation. 

The  routines  are 

1)  PLMETHD  - main  program,  contains  integration  code 

2)  Subroutine  PROFILE  - computes  physical  quantities 

3)  Subroutine  GOUDSND  - performs  optional  Goudsmit-Saunderson  series 

calculation  for  a spatially  uniform  source  in  an 
infinite  medium. 

4)  Subroutine  BOUNDS  - establishes  slab  (Marshak)  boundary  conditions 

5)  Subroutine  SCATCO  - computes  Legendre  coefficients  of  scattering 

kernel. 

6)  Subroutine  POLYN  - computes  Legendre  polynomial  arrays 

7)  Subroutine  LEP  - computes  Legendre  polynomials  using  recursion 

formula. 

8)  Subroutine  FZERO  - computes  the  initial  flux  coefficients. 

9)  Subroutine  LEGEXP  - computes  flux  angular  distribution  from 

Legendre  coefficients. 

10)  Subroutine  TPLOT  - plots  results  via  either  Calcomp  plotter  or 

printer  plots,  or  both. 
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n n n o i)  uo  o u n n n u o «i  r.i  uuo  m o o m cj  o o r*  »•>  o *'  o 


MAIN  Program-  Implements  the  method  for  the  solution  of  the 
Spencer-Lewis  equation  for  electron  transport 

PROGRAM  PLMETHDl INPUT, OUTPUT .TAPE 1, TAPE?  .TAPE  3 ,TAP£4 ,T A9E5 , 

1 T APES - OUTPUT)- - - - — 

COMMON  PL (2  01,51)  , A MU ( 20 1 ) , FSUBL 1 51, 1 0 1)  .FOLD (51, 1 0 1 ) , PS AU S ( 6 , 51 ) , 

XANGNJ**)  ,0(51>,Z(51)  ,SL(51!  , FOCHPG  < 1 0 1 ) , 9ACH9G  (10  1 > , CMPG  (let). 

YEDPDS  (101)  ,LMAX,MX,LAM90A,ETA,ISCAT,0S,JSHAX,  JS<I  P , MtJZERO,  ISO=CE  , 

Z<XSRCE,IO0G,IPRNT, METAL,  HF(  10  1 1 , W8  (10  1 ) , WNET  ( 1 01  > , 0ELX-*-A5-I©* 

WXSOJRCE,EZERO,ECJT,ENRGY, SDR V (5 1 , 1 01 ) , SL  CC 5 1, 1 01) 

- REAL  MUZEPO.LAMBDA - — - 

DIMENSION  A L°HA ( 5 1 ) , BE  TA  ( 51 ) , A A (5)  , AO  ( 5»  , X (13  1 ) , - ( 1 0 1 ) ,F  TO  T ( 1 r 1) 

EQUIYALENCEIFTOM  1»  .Fill ) 

DIMENSION  DSDX(51,101) 

EOUI  YALENnE  (FSUBL  (-l,i)*PSOX(l,l))  

DIMENSION  FANG(232> 

EQUI V ALENCE (r ANSI  1) , WF (1 > T 

DIMENSION  TITLE (3) ,LMX (51 »JS9N0 (5) .DELS (5) 

NAME'.  IST/PAPAMS'MUZERO.XSOUP.CE,  WIOTH.NX  .OS.LAMOOV,  JS*IP,  JSMAOF.LH**- 
X, IDBS.ISORCE,  ISCA  T,ETA,  I ANGLE  , MET  AL,  E ZERO,  ECIJT  , AS  I G,  INT9LT  .NO® OS  , 

XL  MX,  JS BNP,  DELS,  <ALCOMP  -- 

DATA  TITLE/IOHALUHINUH  , 10HCOPPER  , 10HGOLO  / 

DATA  EFS/l.E-6/  - 

DATA  PELS  ,JS3ND,'.MX/5*  0.  ,5*0, 5*0/ 

- I OnS  — • DEBUG  P°INT  OUT  INOIC  A TO°  — 0-SUPP®  ESS  , — 1 -ACT  IV  ATE 

ISORCE  - SOURCE  TYPE  INDICATOR 

• - - — 1- SPATIALLY-  UNIFORM  ISOTROPIC  SCUOCE 

- 2 PLANE  ISOTROPIC  SOURCE  AT  XSOURCE 

—3-  GAUSSI  AN-OIST^IRUTEO  (SPATIALLY)  IS  OT-ROPJG-S^iP^F 

- 4 SPATIALLY  UNIFORM  MONOOIPECTI ONAL  SOJRCE 

5- PLANE- MOMOOIRECTIONAL  SOURCE  ATXSOUPCE 

- 6 GAUSSIAN  OISTRIRUTEOtSPATIALLYI  MONODI REC TI ON AL  SO"9CE 

• — - 7 LEGENDRE  COEFFICIENT  OF  THE  SOURCE  F-JMGT-IOM— A-e<r 

TABULATED  ON  INPUT  FILE  TAPE5  AS  A FUNCTION  OF  X AMO  S 
-I  SCAT  -1  ISOTRO9!  C- SCATTERING  - - 

- 2 SCREENED  RUTHERFORD  SCATTFRING 

-—ETA— RUTHERFORD  SCREENING  PARAMETER- 

L MAX  - (L»1)TH  ORDER  OF  LEGENDRE  POLYNOMIALS  USED  IN  CALCULATION 

MUZ5RO  — SOURCE  DIRECTION  COSINE  --  

JSKI°  - NUMBER  OF  RANGE  INTEGRATION  STEPS  BETWEEN  PRINTOUTS 

J-SMAX — — -T-OT At— N-JMBER— OF-  RANGE  INTEGRATION-  STEPS 

IANSLE  - ANGULAR  FLUX  (6  ANGLE  GAUSS  QUAORAT'JRE)  CALCULATION 
- INOICATDR 

- 1 SUPPRESS  ANGULAR  FLUX  CALCULATION 

2 OR  6REATEP  — ACTIVATE  ANGULAR  FLUX- -CAL  ©Ut  A MON 

XSOJRCE  - POSITIDN  OF  SOURCE  PLANE  IN  SLAB 

HIOr-1  - -SLAO-MIDTM --  — 

NX  - NUMBER  OF  SLAB  WIDTH  TNTEGRATION  SUBDIVISION  BOUNDARIES 

OS—  PANGE  INTEGRATION  STEP  SIZE  * - - - 

LAMBDA  - SCATTERING  MEAN  FREE  PATH 

METAL  - INDEX  INDICATING  SCATTERING  MEOIUM  

- 1 - ALUMINUM 

- 2 - COPPER  - — - 

- 3 - GOLD 

EZERD  - INITIAL  ELECTRON  ENERGY  (MEV)  

ASIC  - GAUSSIAN  DISTRIBUTION  PARAMETE®  ( 2* V A® I ANC E ) 

ECUT  - LOWER  BO JM D CUT-OFF  ENERGY  (MEV)  

T N T P L T - INTERMEDIATE  LINE  P9INTEP  PLOT  INDICSTO9 

- C SUPPRESS  INTERMEDIATE  °LOT5,  summary  “LOT  A?9-APS  OML-V- 

- 1 ACTIVATE  INTERMEDIATE  PLOTS 


Oil  II  O , o o OOO  lit#  OOO  I OO  O O CIO  O Cl  I Cl  O CIO  1 OO  O O OCIOOO  CIOCICICI  OOO 


N0®D3  - NUMBER  0r  VALUES  OF  L HA  X USED  IN  VARIABLE  ORDER  3-5U3-L 


MFTHDO  CALCULATION  - - 

L NX  - VALUES  0c  LMAX  USED  in  VARIABLE  ORDER  R-SJ3-L  CALCULATION 

JS3ND  -NUMBER  3C  RANGE  STEPS  FO®  EACH  L NX  VALUE  

DELS  - VALUES  OF  RANGE  INTEGRATION  STEP  SIZE  FOR  EACH  LiX  VAL"E 

-•  KALCOMP  - INDICATOR  FOR  CALCOMP  ®LOTS  - 

- 0 SUPPRESS  CALCOMP  FLOTS 

- - 1 ACTIVATE  CALCOMP  PLOTS  - - 


SET  THE  DEFAULT  VALJES  FOR  THE  NAMELIST  PARAMETERS 


I D?G  = 0 - - - • — 

SPATIALLY  UNIFORM  ISOTROPIC  INITIAL  ELECTRON  DISTRIBUTION 

IS0RCE=1 

ISDTRO®I C SCATTE»IN3 

I SC  A T = 1 - — 

-IF  SCATTERING-  IS- SCREENED  RUTHERFORD,  ETA  = 1. 

ETA=1. 

THIS  IS  A P-50  CALCULATION.  LMAX  = (ORDER  OF  CALCULATION)  «■  1 

L MAX  = 51  - - - - --  — • 

-IF  SOURDF -IS  -MONODIRECTIONAL,  IT  IS  NORMAL  TO  -THE -SL-A-D— SUPFAGE 

**UZERO=l.  0 


PRINT  RESULTS  AT  EVERY  RANGE  INTEGRATION  STEP 

JSKI3  = 1 - - - 

— INTEGRATION  OVER-RANGE-  HILL-  9E  DONE  FOR  10  STEPS 

JSMAX=10 

OMIT  ANSULAR  FLUX  CALCULATION.  COMMUTE  LEGENDRE  COEFFICIENTS  ONLY 
IANSLE=1 

-IF  INITIAL  DISTRIBUTION  OR  SOURCE  IS  A SPATIAL  DELTA  -FOMFT PON 

(IS0RCE  = 2 OR  5),  IT  IS  LOCATEO  AT  XSOURCE  = 0.5  RANGE  UNITS(R.U.) 

XSOU?CE*0.5  — ■ - — 

-SLAB  WIDTH  IS  ASSUMED  TO  BE  1 R.U.  

W IOT  H = l. 0 

THE  SLAB  WIDTH  IS  DIVIOEO  INTO  100  SPATIAL  SUBDIVISIONS,  (101 

BOJNOAREFSF  -EACH-  OF  WIDTH-«  0 1-R • U • 

NX=1 3 1 

THE  RANSE  INTEGRATION  STEP  SI*E  IS  TAKEN  AS  .91  R.U. 

- OS*. 31  - - — 

total  m=an-f®ee-patm  = 0.1  *>.U.  

L AMB3A=0. 1 


(1(1  H U ()  1 (1  O UUUOI1U  (-100(100000  (|1  O O (1  O O (1  O O (^  O O O cp  O (1  o 0(1  o 


METAi.  = l 


INITIAL  ENERGY  = 1.0  ME  V 

- EZERD  = 1.<J  ~ ...  - - - * 

- IF  INITIAL'  ELECTRON  SPATIAL  DISTRIBUTION  IS  GAUSS  IAN  - IISOR-CE=-  T—'TR— fr-F 
THE  VARIANCE  = 0.57ASIG**? 

ASI S^irO".* - — — ~ * ' 

CUT-OFF- ELECTRON- ENERGY  * 0.01  HE V 

ECUT  =0.01 


SUap^PSS  INDIVIDUAL  PLOTS  OF  CALCULATION  RESULTS  ACTER  EACH  ° ANGE 

- INTEGRAFION-STEP*  — STORE-  ALL  OF  THE-  OATA  ON  DISK-  FILE— A NO— FANE — TN0 

SUNMARY  PLOTS,  THE  ELECTRON  FLUX  F(X,S»  VS.  X FOR  EACH  S VALUE  AMO 

- THE  ENERGY  DEPOSITION  PROFILE  WO(X,S»  VS.-X  FOR  FAOH-S  V A tU E>— AT-HF-hE 

ENT  OP  THE  CALCULATION. 

INT*LT=0-  — - -•  - ' --  

-THE  P=OSPAH  IS-EQUIPPEO- TO-  HANDLE- A VARIABLE  ORDER  -LEGENDRE  -Sr RIp-S 

CALCULATION.  THERE  CAN  BE  AS  NANY  AS  FIVE  OIFFERFNT  VALUES  OF  LHAX, 

- DOWN  WARD  , LMXC1)  .GT-.-LMX  IEK  GF.LMX  (3)  .GT  .LMX  <4>  .GT  .LHXF5-K F-OR— EACH 

VALUE  OF  LMX  ENTE°EO,  THE  USER  MUST  ALSO  ENTER  a CORRESPONDING  VALUE 

FOR  the  RANGE  -INTEGRATION  STE°  SIZE  ANO-THE  NU M BE R —0 F— S UFH — ST-EPS 

<OELS(II  ,JS0NOm  ,1  = 1,5)  , THIS'  VARIABLE  ORDER  FEATJRE  HAY  BE  USPFUL 

- WHEN-  T-fE — SCATTERING— IS  INITI ALLY-HIGHtY -ANISOT RO PIC —BUT-  -TENDS-  TO  -GROW — 
DIPFUSE  AFTER  SEVERAL  SCATTFRINGS.  THE  OEcAULT  SITJATION  IS  A 

-SINGLE— D ROE P C ALCUALTION-f N0R0S  = 1)  . 

NOROS=1 


SUPPRESS  CALCOMP  PLOTS  - - - IF  CALCOHP  PLO  IS  ARF  OESIREO,  SET 
-KAtCOHP-  TO-l-ANO-AO-O  THE  FOLLOWING  CONTROL-  CAROS-  TO- T-HE— OEC < -BEFORE 
THE  EXECUTION  CAROL 

ATTACHHPENiONLINEPEN* - 


LIBRARY  (°EN> — - 

EXECUTION  CARO  - - - 

— DISPOSEfPLOT,  *PL> - 

FOR  RED  INK  PLOTS.  THESE  PLOTS  ARE  SEMILOG  PLOTS  AND  OIS°LAY  THr 

SAME  QUANTITIES  AS  THE  PRINTER- PLOTS . — - 

KALC0MP=0 


READ  IV  THE  NAMELIST  PARAMETERS 


READ  PARAMS 

• --IF«N-D»DS.EQ.l»LHXIl»sLHAX- 
IFINDROS.EQ.1)OE_S(1»=OS 


POINT  OJT  THE  NAMELIST  PARAMETERS 


PRINT  PAPAMS 

PRINT  71 , TITLE  (HETALT- 

71  F0RH1T (1X,*THE  SCATTEPING  “ATEOIAL  IS*, IX, 413) 
I OaD  = 1 
LHA<=LMX< 1» 
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*» 


on  oocic)  cjci  | on  u o i*»  no  ; n u u o unno  i>no  onmii) 


1 


0S=0:LS<1) 

IFCN0P0S.E0.1)  3D  TO  233-  - - — 

jc  HO°r  THAN  ONE  PL  0®0FR  IS  T0  BE  USEO  IN  THE  C A 1C  JL  AT  I ON,---G-ONVr  “T 

THE  NUM3ER  OF  RANGE  STEPS  FOR  EACH  ORDER  TO  A CUMULATIVE  PARAHETCP 

WHICH  WT  LL  BE  USEO  AS  AN  INOICATOP  TO  CHANGE  THE  -ORDER-  OF--T-Hc 

CALCULATION. 

— 00  232  1=2 , NOR OS- - - - 

JSBND (I)=JSBN0<I-1) ♦JS°N0(I» 

2 32  CONTINUE  - : 

COMPUTE  THE  LEGENORE  POLYNOMIALS  TO  0Rf»£R  CLHAX-l)-rOP-?»l  EQUAUr* 

SPACED  VALUES  OF  H'J  RANGING  FROM  -1  TO  ♦ 1 
233  CALL  POLYN  - - - 

- NORMALI  7 c THE  FLUX  COEFFICIENTS  FOR  THE  M AR  SHA  K BOUNO  AP  v -CO  WP-I  T-F^^S 

(ZERO  RETURN  CURRENT).  THE  BOUNOARY  CONDITIONS  CAN  BE  IMPOSED  EOP  UP 

TO  LHA<  =21.  - - 

IFTLNAX.LE.21)  CALL  BNOCOF 


IF  THE  ANGULAR  FLUX  IS  TO  BE  CALCULATED,  COH°UTE  THE  LEGENDRE  POLY- 
NOMIALS—TO  ORDER  (LM AX-1)  - AT  ANGLES  CORRESPONDING— TD-A-ST-X—^ »Q*N4 

GA'JSSIAN  QUAOPATUPE. 

- - IFTI  ANGLF.NE.  1)-  CALL-  POLANG  - 

- COMPUTE- X-INTEGRATION  STEP  SIZE  

OELX  = H IQTH/ (FLOAT  (NX-1)) 


COMPUTE  INDEX  IN  X-ARRAV  CORRESPONDING  TO  SOURCE  CENTER  POSITION 
- FOR  THE  CASE  OF  A S3AT  IAL-  OELTA  FUNCTION  OR  GAUSS  IA N— O-ISTRj-BU T ION  r 
KXSRCE=IFIX  ( XSO'JRCE/OELXfEPS)  ♦! 


INITIALIZE  RANGE, S,  AND  RANGE  INTEGRATION  INOEX  JS 


IF  THE  SOURCE  IS  OBTAINED  FROM  A TABULATED  FUNCTION  OR  A KNOWN 
-ANALYTIC  AL  POSITION  ANO  RANGE  OEPENOENT  FUNCTION,  - THE — ENT-RV — P-QtN*- 
•SOURCE*  IN  SUBROUTINE  *FZERO*  WILL  BE  CALLED  BEFORE  EVEPY  RANGE 
INTEGRATION  STEP.  THE  QUANTITIES  S AND  JS  ARE  I NCR*  HFNTED-BE-FORp- 


EACH  CALL  TO  "SOURCE* • IN  ORDER  THE  S=0.  ANO  JS=0  ’RIO»  TO  THE 
INITIAL  CALL  IN  THE  RANGE  INTEGRATION  LOOP,  THEY  MUST  BE-OECPEH 
HERE. 


13  0 0 0 13  OO  ' OOun  MOO  L)  13  • | O O 13  ! | (30 


IF  THE  SOURCF  IS  NDT  A TA  9UL  AT  EO  FUNCTION  OR  4 KNOWN  ANALYTICAL  ’ANGE 

AND  POSITION  DEPENDENT  FUNCTION,  SUBROUTINE  *F ZERO'  I S C A Lt £0-  ONtY 

ONCE  IN  THE  CALCULATION  TO  INITIALIZE  THE  FL'JX  LE5EN0RE  COEFFICIENTS 

IF<ISOeCE.EO. 7) TO  103  " - - " 

CALL  FZE«>0 

PRINT  THE  LEGENOPE  COEFFICIENTS  OF  THE  INITIAL  ANSJLAR  OI$T» IBUTION 

*RINT-7£fl»  <SL<L->  ,-L  = l-»tMAX> * 

720  F0RMATC/1X, ’LEGENDRE  COEFFICIENTS  OF  THE  INITIAL  ANGULAR  DIST°IRUT 
- lI0N'f-/(lX,HEl?.5>  > - - 

- COMPUTE  THE  LFGENORE  COEFFICIENTS,  QCL)».  OF  THE  SCA  T T ER ING— 

103  CALL  SCATCO 

-P®TNT-310»IOm,L  = l,LMAX>  - - 

3 1C  FORMAT C1X, 'SCATTERING  KERNEL  LEGENDRE  COEFFICIENTS'/ (10E12 . 5 ) ) 

IF  THE  INITIAL  ELECTRON  FLUX  IS  SPATIALLY  UMeOR»,  CALCULATE  THE 

ELECTRON -FLUX  USING-  THE  GOUOSHIT  SAUNDERSON  SERIES-  F0° — GHE-X-OU-T 

PURPOSES. 

- I F C I 3 ORCE  .FQ.1.0R.IS0RCE.EQ.4)  CALL  GOUDSND 

COMPUTE-  THE  INITIAL-  ELECTRON -FLUXES  AT  THE  THO  SLA9  --80UNQ4R-IE-5 — 49 

SPECIFIED  BY  THE  MARSHAK  BOUNDARY  CONDITIONS. 

- - IF(LMAX.LE.21»  CALL  POUNDS-  - 

DO  101  L = 1 »LM AX 

- IF-  EXTENDED— PRINTOUT— IS-DESIREO  -CIDRG.NE.  0>  , -P*I*fT-THE— £NIT-?HH: 

FLJK  LEGENDRE  COEFFICIENTS. 

IF<IDMGvEC*0|-GO-  TO-72 * - 

IFCISORCE.EQ.  7 ) GO  TO  72 

•••  LM1=L-1 — --  - “ - ~ - 

POINT  179 ,S,LM1 

PRINT— 1799  — - 

1799  FORMA T C//2X.8 C'X  FSUBLCX)  ')) 

PRINT-  17B9, CXCKX) ,FSUBfcCL,KX) ,KX=1,NX»  

1799  FORMAT C8CF4.2,F9. 5, 2X) > 

179-  F0RMATC///1X, 'RANGE  = • , E 12 . 5 , 5X  , 'LEGENORE  FLUX-COEFF  I&i-cN-TS-. — OR  BE — 
IP  CL)  OF  LEGENORE  SERIES  TERM  IS*, 15) 

CALCULATE  THE  VALUES  OF  THE  COUPLING  CONSTANTS  ALPHA  AND  BETA  F0° 

-THE  — tN9X- COUPLED  PART  I At -DIFFERENTIAL  EOUA  TIONS. 

72  AL=FLOAT CL-1) 

Al*t./C2.'AL'lr.)  --  - 

ALPHA  CL)  = AL'A 1 

BET4Ct*  = Cl.'AD'41- - - 

101  CONTINUE 

- IFH50RCE  .E0.7)  GO  TO  278  - - • --  - 

COMPUTE- AND-PRINT-OJT- ANGULAR  DISTRIBUTION  OF  INITIAL — Et ECT-RR-N— PtUX 

00  SV  1=1,201 

F ANGC  I )=0  * - - 

DO  95  L= 1 , L HA X 

AL=L  - - 

c ANSC  I)=FA*IGC  I ) *3 . 5*  C2.'AL-1.  ) 'SL  CL)  'PLC  I,L) 

99  CONTINUE  - 

84  CONTINUE 

PRINT  1797  - - 

1797  FORMi  T C///1X, 'ANGULAR  DISTRIBUTION  Oc  INITIAL  ELECTRON  F'wUx*/!  X,  1 • 

95  “ 


1 * MU  F(MU»  •)> 

PRINT  96,  I A MU ( I T,F4NG(II ,1=1,201) 
86  FORM4H8<F5. 2, F9. 5.1XJI 

78  A = DS/ ( 2, *OELK I - 

B=QS/ LAMBDA 


PAN5E-INTEGRATION  LOOP -®EGI  NS  MERE  - 
STEP  C3JNTER 


- JS  IS  T-HE  RANGE- 


200  JS=JS*1 

IF  JSMAX  RANGE  INT^satjons  HAVE  BEEN  PERFORMED,  TME  CALCULATION  IS 
FINISHED.  THE  PROGRAM  TRANSFERS  TO  THE  END  OF  THE  -COPE  -AND-  PPOOC€OS 
WITH  THE  SUMMARY  PLOTS, 

IF( J5 .GT. JSMAX » GO  TO  300  - - - 

IF  THIS  IS  A MULTIPLE  ORDER  CALCULATION,  CHECK-  IF  ME-RAWGE 

INTEGRATION  COUNTER,  JS,  HAS  PASSED  A VALUE  t JSBNO)  AT  WHICH  A CHANGE 

IN  the  ®L  ORDER  AND  INTEGRATION  STEP  SIZE  -IS  IN9-ICAJEQ«--IF  THIS  IS 

THE  CASE,  ADJUST  THE  PARA  MET  E®S  DS  AND  LMAX  ACCOPOINGLY.  IF  THIS  IS 

A SINGLE- ORDER-  CALCULATION  (NOROS=i),  THIS  SECTION  DF— GO DE— IS 

BYPASSED  SINCE  IOPD  WILL  ALWAYS  HAVE  THE  VALUE  1. 

- IF(IDRO.EQ.NOROS>- -GO  TO- 30  - 

I OpD 1 = IORD> 1 

IF| JS.LE. JSBND(IDRO» »GO  TO  30-  - - 

T ORD  = I ORD1 

OSOELSCIORD1T - - 

LMA<=LMXfIOP01> 

A=OS/ <2.*DELXI — - - - - - - 

P=03/L AMBOA 

30  CONTINUE  ~ --  — - 

-INCREMENT  THE  RANGE,  5.  — - - 

S = SO  S 


SET  THE  PRINT  PARAMETER,  IPRNT , SO  THAT  THE  INTERMEDIATE  RESULTS 

WIL-L-*5=— PRINTED  ANO-  PtOTTEO-  FOR-THE-F*PST-  ANP-EVE-RT-JSK  I^-TH  pANGE 

C INTEGRATION  STE® • 

— I PPNF  = 0 - - - - - - — 

IF(( JS-t JS/JSKI®!  * JSKIP)  . EQ.O  I®RNT=1 

IFfJS.EO.l)  IPRNT  =1  - - - 

DO  232  L=1,LMAX 

C CLEAR  THE  ARRAY  FTOTtKX)  WHICH  IS  USED  TO  TEMPORARILY  STORE  THE  TOTAL 

3 ELECTRON-  FL-UXIZE°OTH  OROER-FLUX-LEGFND®E  COEPFICIgNT>-A^-A-RiHCTION 

C OF  POSITION  IN  THE  SLAB  AT  EACH  RANGE  INTEGRATION  STEP. 

OO-  -23  2-  KX  = 1 ,NX 

FTOT  CKX) =0. 

«.  _ _ __  _ _ __  ...  _ ___  _ ...  __  

C STDRE  the  FLUX  LEGENDRE  COEFFICIENT  ARRAY  FSU3L<L,«>  COMPUTED  AT  THE 

C PREVIOUS  OANGE  STEP  IN  tHE  ARRAY  FOLO(L,KX»  SO  THAT  THE  ARRAY -F5“*t 

3 WILL  NOT  BE  OFSTROYED  DURING  THE  SUBSEQUENT  COMPUTATION  OF  THE  NT U 

3 FSJBL  ARPAY.  

FnLDIL,KX)-FS'JBLCL,<XI 

202  CONTINUE  - - 


o o o o o o 


% 


IF  the:  3 01JRCF  FUNCTION  TS  3ANGE  DEPENDENT  (TABULATED  OR  ANALYTIC)  . 

CALL  THE-  ♦SOURCE*  ENTRY  POINT.  - - - • 

IF(IS0RCE.E0.7)CALL  SOURCE 


-•SPATIAL  INTEGRATION-LOOP.  THE  ALGORITHM  IS  A SECOND  - ORDER- HEX- 
HENOROF-  SCHEME  (SEE  SEPARATE  WRITE-U^). 

DO  201-t  = trLHAX 

DO  20 1 KX=1,NX 

... AA(1> =AA (2) =AA(3»  = A A ( 4 > = A A ( 5 > = 0 . 9 - - 

TFKX.EQ.l)  GO  TD  400 

- IF(KX.EQ.NX)  GO  TO  410  — • 

KK  = < * =KX ♦ 1 

<Q=<< -1 

- - ' — S YN=9  • 5 - — - - 

GO  TD  420 

490KK-3  — . . . • ... 

K M = < 3 = 2 

SYN  = 1 . 0 

SO  TD  420  - 

410  KK=NX-2 

--  K M= K 3 = NX—  1 --  - 

420  IFCL.GT.2.AND.L.LT.  (LMAX-IHGO  TO  444 

IP<t-.GT.l)-GO-K>  441 

419  AA(2>  = 2.*A*SYNMFOLD(L*1,K0> -FOLD (L* 1 , KO )l 

- • A A <4*  = 2.*A**2*(FDLD(L<-2,KK)-2.*F0LD(L  + 2iKM)4F0LD(lr«-2,K'm 
A A (51  =2.  *A**2MFDLD  ( L , KK  > -2. * FOLD ( L , KM ) «-FOLQ(L,K3>  ) 

- — GO  TD-  445  - - - - - 

441  IF(L.GT.2»  GO  TD  442 

A A ( 1 F = 2¥-*  A*  SYN*t  F OL-O  ( t— 1 » KP> -FOLO  (L— 1 » KQ ) I 

GO  TD  419 

442 - IF(L.  EQ.LMAX)  -GO  -TO  443  - 

446  A A (2)  =2.*A*SVN*(F0Ln<L+l,KP>-F0L0<L*l,KQ>> 

443- AA-(l»-=2.*A*SYN*FFDLD(L-l,KP>-F0L0<l-l.KD)»- 

AA(3) = 2.* A* *2*  CFDLD  (L-2.KK) -2. *FOLO (L-2. KM) ♦FOLD ( L -2 , KQ>  ) 

- — AA(5»=2.*  A**?MFDLD  ( t , KK > -2 . ‘FOLD (L t KM  >♦  FOL O (L  .O  H 

GO  TD  445 

4 44  AA(4>  =2.‘A‘*2*  TCD L D ( L«-2,  KK) -2  . ‘FOLD  < L-»-2 1 <M ) +POLO  f t *-2  , K9T+ 

GO  TD  446 

445  CONTIMUE - — 

99=3* (Q(L )-l. ) 

IF(L.EO.l)  GD  TD  450  - — - 

IF(L. EQ.LMAXI GO  TO  460 

A Qff  1 > *-((  (0(LM-D(L-l>-2.  )/LAM90A*0.5*OS)  +1  • 0)  *AL3HAffc) 

AO(?l  = -( ( CQ(L) ♦!( L*l»-2. ) /L A M 90 A * 0 . 5 * OS>  *1. 0) *9ETA (L) 

AQm=ALRHA(LI*ALPHA(L-l» --  — 

AO  <’4 1 rHETA  (LJ  *OE  T A (L  *1 ) 

- A0(5»  =ALPH»  (L»l)  *9FTA(LMAL»HA(L»  *9ETA  <L -1)  

GO  TO  465 

450  AQ( 11 =-( ( (0<l)  -2.1 /LAMBPA*0.5*OS» ♦1.0»*AL3HAIt» 

AO(2l  = -(  ( (Q(l)0(LM)-2.1  /LA  MOD  A*0 .5*  OS)  »1 . 0 ) • 9ET  A f L I 
A 0 « 3 • =0. 

A0(4»=9ETA(L»*BETA(L*1) 
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A9<5)=ALPHA<L*1I*9ETACL> 

GO  TO  465  — - • • * 

4 60  AQm=-C(CCML)0<L-l>-2.)  /LAN8DA*G .5*0S)  *1 . 0 ) * A|_  ’H  A < L ) 
AQI2)  =-<  < (OIL  I -2. > /LAM9QA*0.p*OS> *1 . 0 » * 8 = T A < L I 

A Q ( 3 ) = ALPHA  (L  I “ALPHA  (L -II 

AQI4I =0.  - - • - • 

AQ(5I=ALPHA(L»*9ETACL-1) 

465  CONTINUE-  - - 

FAC=rOLO (L.KXI 

FSU9L  (L,KX)  = (1.«-BBH).5*B9**2I*FAC  --  -- 

DO  150  IT=i,5 

FSUBL  IL,KXI=FSU9L  (L  , KX1  ♦ A A<  IT  I * AQIIT I.  

150  CONTINUE 


IF  SOURCE  FUNCTION  IS  RANGE  OEPENOENT(TA8UL  ATEO  OF  ANALYTICAL)* 

ap°ropri A TE-  SOURCE  DE°iVATIVE  terms.  

IFUS0RCE.NE.7I  SO  TO  201 

IF»L.E0.1IOSTERN=OETA(LI*DSOX(L«-1.KXI  

IF(L.  EQ.LMAX)OSTEP‘i=  ALPHA  CL>  *OSOX(L-l,  KX) 

-I  Fit.  GT.  l.ANO.L.LT  . L HA  X I D STERM=8ET  A CL  I *OSOX  (L  *1 , < X ) ♦-AL-PH^T-b)  J 
10S0X  CL-l.KX) 

--FSU3L  IL.KXI  =CSU9L  (L  , KX)+SLC <L , KX) *DS*  ( 1 . * U (L  I -1  . » *BS/b  AH9  9AT 
10. 5“ IS** 2“ CSORVCL,KX)-OSTERN) 

201  CONTINUE  - 

703  FORMAT I/1X,*L=*»I5,*F0LD*I 

704  F0RMAT(/1X,*L=*,I5,*FSU9LM 

IFILNAX.LE.21I  CALL  80UN0S 

- -CALL  PROFILE-  - 

IFIEMRGY. GT.0. 0)  GO  TO  180 

- - PRINT  187  - - 

187  FORMAT (/lX,*ENER3r  BELOH  CUT-OFF  VALUE*) 

GO  TO  300  - - 

188  IFIIORNT.NE.1)  GO  TO  200 

189  FORMAT I//1X,*S=*,  El  2.51 — 

IFIIDBG.NE.il  GO  TO  215 

...  OO  211  L=1»LNAX  - - - - 

PRINT  179, S,L 

PRINT—  1 7 99 

211  PRINT  1798, (XIKX) , FSUBL(L.KX) ,KX=1,MX) 

180-  FO»MAT  (1X.10E13.5I — — - — 

215  KPRNT  = 0 

- DO  213  NHU- 1,  201*  20  -•  - - 

00  212  KX=1,NX 

F (KX)  =0.  - - - - — - . 

DO  212  L = 1 » LM  A X 

FIKX) =F(KX) ♦0.5*1 2. *AL-1. )*FSUBL  CL , KX ) *?L C NMU, L) 

212  CONTINUE  - 

IF! KPRNT . EO . 0)  GO  TO  213 

PRINT  214  , AMU  INH'J  I --  

PPINT  180 , ( F ( KX) ,KX=1,NXI 

213  CONTINUE-  ------  - - - 

F INT  = 0 . 

00  229  KX  = 1 ,NX  

FTOT(KXI=FSU3L<l,<X» 

FINTsFTOT ( KXI *OEL X ♦ FTNT 
2 2°  CONTINUE 
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PRINT  230, s 

* 30  FOREST <//lX,*S  = *, El  2.5, *CHARGE  SPATIAL 
PRINT  130, (FTOT(KX) ,KX=1,NX1 
IFCIA NGLE.NE. 1)  GALL  LEGFXP 
! 14  FOR NAT (/1X»*MU=*,  E 1 2 .5 ) 

PRINT  242 , F IN T - — - - 

►42  FORNAT{/iX,*TOTAL  CHARGE  IN  SLAB  = *,2X,E16.' 

IFdNTPLT  .EQ.  0)  - GO  TO  -60 — 

REMIND  3 

- WRITE (3) JS, (X <KX)  ,KX  = 1,NX)-  - - 

WRITE  <3>  JS, IPTOTt  KX> ,KX= 1, NX) 

REWINO  4 - - 

WRITE(4)  JS,  (X(KX)  ,KX=1,NX) 

— WRITE (4» JS,  (EOPOS (<X> ,KX=1, NX)  — 

REMIND  3 

JPLO T = 3 - - * ’ - 

CALL  TPLOT (NX, 6, JPLOT,KALCONP) 

= EMIND  4--  - - 

JPLDT=4 

--CALL-  rPL0T(NX,6, J°LOT,KALCOMC)  - --  - 

60  IF(JR.GT.l)  GO  T3  41 

— OEMINO  l * - 

WRITE ( II  JS , <X(KX) ,KX=1,NV) 

61  WRIT;  (l)-JS,  (FTOT(<y)  ,KX  = 1,MX) 

IF(JS.GT.l)  GO  TD  62 

REWLNa-2 

WRITE  I 2)  JS,  IX  KX)  ,KX=1,NX) 
62-WRIT-ET2)-JSr<EDP3S(KX»,KX=l,NX>-  - 
GO  TO  200 

500  REWIND--1 • - " “ “ 

REWINO  2 

JPLOT=l  

CALL  TPL0T(NX,6, JPLOT.KALCOHP) 

JPLO T- 2 - — - 

CALL  TPLOT CNX,6, JPLOT,KALC3WP) 

IFKALCOHP.EQ.  1)  call  endplt 
STO® 
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Subroutine  PROFILE-computes  physical  quantities 


SUBROUTINE  PROFILE 

COMMON  PL  (201, 51)  ,AMU<201)  * FSU8L  ( 51 , 101)  , FOLD  (51*  101)  , °G  AU  S <6^5  IP,— 
X A NGN  J <6),0<51),Z<51) , SL  < 5 1 ) , FOC  HRG  ( 1 0 1 ) , 8ACHRG (10  1 ) , CH°G (1 01)  , 

ITEOPOS  <101)  ,LMAX,NX,LAMBDA,ETA,ISCAT,OS,JSMAX,JS<IP,MU7ERO,-I^OcCE-,— 
ZKXSR:E,ID«G,IP9NT,METAL,WF(101) , WB(lOl), WNET  < 101)  , 0ELX,4SIG, 

WXSOJRCE,EZERD,E3JT,ENRGY,SQRV<51,101) ,SLC<51, 101)  — T 

PEAL  HUZEPO, LAMBDA 

D I MEN  S ION  FRSTM0M<51),FCTRL<51)  - - 

DIMENSION  ZZ<3) ,4Z<3) ,EXCIT<3) ,DNSTY<3) 

DIMENSION  X<101)  - - - 

REAL  MC2 

DATA  ITIME/0/  . 

OAT  A ZZ, 4Z,EXCIT, ON S TY/1 3 . , 29 . , 7 9 . , 25 . 98  ,53.54,197.0, 

X163.E-6,80.E-5,7.97E-6,?.7,S.9,10.5/  - - - 

DATA  c>E,  AVOG,  THOt>I,  MC2/.  2813  E- 1 2 , 6 . 025  E 2 3,  6 . 28  319  5 3,  0 . 51 1/ 

- --  I F ( I T 7 ME  .GT . 0 ) GO  TO  100  - 

ENR3Y=FZfRO 

V L 3 = ' L OG  < ? . ) ‘ - 

Ff":TV>°I*  AV0G*R"*»  ?nMr? 

ro-rr  -nvd)  =o.  c 

DO  l L = 2 , LMAX-  - - - 

FRSTNOMCL)=0.  0 

— - - FCTRL<L)=pLOAT<L-1)*FGTPL<L-1)  - 

1 CONTINUE 

DO  2 L=3 , LMAX , 2 

LL=(L^3  l/Z  — - - 

LM=(.-1) /2 

- ...  AL=  = ‘.  OAT (L-1P  - - — - 

SGN=-SGN 

FRSTMOMtL  > = <2.*AL*1.  >*FCTRL!L-2>/<  <2.**L)*FCT9L(LL  >*FCTRt-HrMTV*S&N— 

2 CONTINUE 

3 INITIALIZE  PROFILES 

•—  — X <11  = 0. — — ------  - 

DO  3 KX=1,NX 

POC-fPG  <<X  T=8ACHR 3 ( <X  ) =CHR6( KX  ) =EOPOS  < KX) =0 . 

WF ( KX ) =W3 ( KX) =WNET (KX) =0.0 

— X (KX) = OE  L X * FLO  ATCKX-IT  - — 

3 CONTINUE 

- --  — 100  CONTINUE  - - ■ - • ~ - 

C BERGER -SELTZER  STOPPING  POWER  FORMULA  COMPUTATION 

-TK=ENRGY/MC2 - ; 

BET  A = (SORT  f TKMTK  » 2 .))>/<  TK»1  . ) 

— - XLG=  4 LOG  <TK**2MT<+2.>/(2.MEXCIT<M£TAL)/MC2)**2>) 

C RELATIVISTIC  CORRECTION  TERM 

FM  = 1.-BET  A**2M0.-125»-TK**2-<2.*T«+l.l*XL-2)  / <TK+1-.  T**2 

DEBT D S = -< FCC’ONSTY (MFTAL) *ZZ < METAL) / A 7 (METAL )/ BET  A **2 ) * < XL G* F-) 

— ENR3Y  = ENRGY'fOEBYOS*OS—  - --  

IF(ENPGY.GT.ECUT)  GO  TO  112 

E N°G  Y =-5 . 

RETURN 

111?  DO  112  KX=1,NX  - 

c nft  charge  flow  profile 

5 C H°3  < KX) =CHRG ( KX ) ♦ F SUBL ( ?,KX)*OS  - 

C NET  ENERGY  FLOW  PPOFILE 

100  


WNET  ( KXI =WNET  ( KX>  f ENPG  Y’  F S'JBL  C 2 , K X ) * OS 

Oa~13±-L=l,L*1AX~  - . . - 

Z FORWARD  CHARGE  FLOW  PROFILE 

~ " - ~ F0CHRG<KX)=F0CHRG<<X»’FRSTW0M(L>*F3U3L(L,KX>*DS 

3 FORWARD  ENERGY  PLOW  PROFILE 

- WF(<< ) =WF <KX) ’FRSTNOMtL) ’ENRGY’FSUHL (L,KX>*DS  ' 

101  CONTINUE 

r. backward-  CHARGE  f tow- -profile-  - - 

PAOH&G(KX}=CM=>G(<X) -FOCH=G(KX) 

. r — 3 AC<  W A PO"  ENERGY  FOLW  PROFILE  --  - 

W3<<*  > = WNET  (KX)  -,)f  ( <Y» 

ED=33 »KX ) =E9P0S(<X ) -n£qyoS*FSU3L (1 ,KXJ *OS  - 

102  CONTINUE 

_ ipf  I-ooNT-iNE.l)  RETURN  - - _ - • - 

NN=1 

- - - PRINf~60",  ENPG  Y , DE  9Y  05  - - 

60  FORiAT (/IX, ’ELECTRON  ENERGY = * , E 1 2. 5 , 1 X , ’ME V*/ 1 X, * S TO PPING  POWfP=*, 

IE  12.-5  I ' 

PRINT  50 

- — p*I*T  40,  (X(KX) , FOCHPG(KX) ,<X  = 1,NX,NN)  — 

PRINT  51 

_ _ . — ~ pRI>u  40,  (X(KX)*3ACNPG(KX),<X  = 1,NX,NN>  - — - - 

PRINT  52 

—  — PRINT -40,  EXWKX)  , CHRG(KX»,KX  = 1,NX,NN)  - — 

PRINT  53 

PRINT-  «*0-,~<X  tXXhfE-QPOS- (KX>  ,KX  = 1-,NX,NNT 

PRINT  54 

PRINT- 40,(X(KXh,HFf  KX»,KX=1,NX,NN» 

PRINT  55 

. PRINT- 40,  (X(KX) , WfM  KX) ,KX  = 1,NX, NN) - — - — 

PRINT  56 

_ — PRINT-  40,  CX(KX) , WNET (KX) , KX=1 , NX, NN»  

50  FORNAT {/IX, ’FORWARD  CHARGE  FLOW  PR0FILE’/2X , 3 (*X  PROFILE  *)) 

54-FORNA  T { /1X-,  ’FORWARD-ENERGY  FLOW-PROFILE’/2X-,-8  (-*X  PROFIK 

51  FORiAT (/IX, ’BACKWARD  CHARGE  FLOW  PR0FILE*/2X, 8 (•<  PROFILE  ’)> 

. ..  55-  FORI  A T</1X,*BAC<WAR0  ENERGY  FLOW  PROF  I LE*/2X,  8 (*X P=OF-Ifc-E M-T- 

56  FORiAT (/IX, ’NET  ENERGY  FLOW  PRO FILE* / 2X , 8 t * X PROFILE  ’)) 

52— F-ORNA-T-(-/l  Xy-’NET— G HA RGE  R.OW  PROFILE’/2X,  8(*X »ROPItE M-| 

53  FORiAT (/IX, ’ENERGY  DEPOSITION  PROFIL E’/2 X, 3 ( * X PROFILE  *) ) 

40-FORiVT(fr(F4i2,F9^5,-2XTV 

RETURN 


Subroutine  GOUDSND-Goudsmit-Saunderson  series  calculation 


SUBROUTINE  GOUOSNO 

COMMON  PL- (201 , 51)  , AMU(201),FSUaL(51, 101)  ,F0LD  (51,  101)  , 8 ( 5 r 51rH— 

X ANGNJ (6) ,0(51) ,Z (51 ) ,SL(51) , F 0CH®G ( 101), 3ACHRG (101) ,CH»G (101), 
f EDPD3  (101),LMAX,NX,LApqf)A,ETA,ISCAT,DS,JSMAX,JS<IP,M»)ZEP'>,ISDarE-*— 
Z<XSR:E,I03G,IPRNT,meTAL,WF(1C1)  , HR  ( 1 0 1 ) , HNET  ( 1 01)  , DELX,A3IG, 

NXSOURCE,  EZE°0,ECJT ,ENRGY»SORV  (51,101)  ,SLC(51,  101) 

PEAL  MUZERO»L AM3D A 

DIMENSION  S(101) ,F(6,11>  - 

IF(ISCAT.NE.l)  3D  TO  1 

Z(1)=0.  - 

00  13  L=2,LMAX 

Z (L)  = 1 . . 

10  CONTINUE 

1 OELS  = DS*FLOAT  ( JS<IP)  - - - - - - 

JMAX  = JSMAX/JSKI3H 

IF( JMAX.LE. 11)  GO  TO  11  

PRINT  12 

- S TO®  — ' 

11  CONTI  HUE 

12  FORMS  T (IX  ,*JSMAX  AND  JSK  IP  VALUES  ARE-  NO  T- USA  3 Lf— IN— GOU>»4-?T -£  AUMO  - 
XERSDN  SEPIES  CALCULATION*) 

— s ( i*  = e - - — - - - - 

DO  2 J=2,JUAX 

- S (J) =S(J-1)+QELS  - - --  - 

2 CONTINUE 

- -00-'4-J=l  , JMAX - - - 

OO  4 K=i,6 

FfK,J)=0.  - - — --  * 

DO  '*3  L=1,LMAX 

- AL  = 0 . 5*FLOAT(  2*L-1) • - • — 

F1=S( J)/L AM80A*Z( L) 

F(K, J»=F(K,J)>AL*EXP(-F1)*PGAUS(K,L)*SL(L) --  

40  CONTINUE 

-4  CONTINUE 

IF (I  SCAT . NE , 1)  GD  TO  60 

— PRINT  -50,  (ANGMU(I),I=1,6)  - — •■---• 

50  FORMATI1X ,*ISOTROPIC  SCATTERING*/9X, *COS INE  OF  PDLAR  ANGLE */7X ,* S* 

— K , 5 X E 1 3 • 6 ) 

00  51  J=1,JMAX 

— PRINT -52,S(J) , (F(K,  JV,K=1*6) — 

51  CONTINUE 

52-  FORM  AT  (IX  ,-7E13.6)  - - 

RETURN 

60-PRINT  53, ETA,  (ANGMU(I) ,1=1,6)  — — - 

53  F0RMST(//1X,*SCREENE0  RUTHERFORD  SCATTERING  - - ETA  =♦,  E12.5/9X,* 

-XCOSINE  OF-POLAR  A N3 L E* /7X , *S* , 5 X , 6E1 3 . 6)  - 

00  5 ’♦  J=1,JMAX 

PRIN  T— 52  , S ( J)  r ( F ( K , J ) , K=1  ,6)  - - - - - 

54  CONTINUE 

-RETURN  - - - - 

END 


102 


"N  IP  tn  Ul  IM  N (T  vjl  W r\J  K SJO  -N  U"  VJI  4T 


m 


Subroutine  BOUNDS-Marshak  boundary  conditions 


SUBROUTINE  BOUtOS 

C ONION  PL  ( 201,  51)  , AMU(  201 ) , FSUSL ( 5 1,  1 0 1) , FOLD ( 51 , 1 0 1 ) , °5  AUS  (-4, 
XANG1J(6),0(51),Z(51),SL(51)  ,FOCHRG(101  ) , 1ACH»G(13 1)  ,CHPG(1  C 1 » , 
YEOPD5  (101)  .LNAX.NX.LAHBOA.FT  A tISCAT,9S,JSHAX,  JS<IP,MUZER7.TF 
ZKXSR:F,I0BG,IPRNT,ME7AL, WF(101)  , W9(131)  ,HNET(101)  , DEL  X, A : I 6, 

WXSO’JRCE,  EZSRO,  ED  JT,  ENRGY,  SDPV  (51,101)  ,SLC(  51, 1 01)- 

REAL  MUZEPO, LAMBDA 

- DIMENSION  CQEFS  (21,21)  - - - 

DATA  ( (C  OEFS ( I , J) , 1 = 1, 21)  , J = 1 , 7) / 

1 


■> 

3 

!» 

5 

6 
7 
3 
9 


42*0., 

.1 CCOOOOOOE  + Ol,  - . 108253174E+01,  . 44 72 135 73 E + 0 C , 1 3* 0 . , 

*1000000 00 E+01,  . 121243547E+01,  . 715541553E+U0 , . 19  34  71191^  + 00, 
17*0.,  - . 


. 1 00C0  00  OuE+01,  . 129903767E+01,  . 9 1 26 79 3 0 8 E + 0 0 , . 3*  97  74  3 8 7F  ♦ C 0 , 

• 3 1 632 21 06E— 0 1 , 1 6* 0 • , - 


. 1 0000  000QE+01,  . 136089570E+01,  . 1 0 64  790 92E * 0 1 , . 5630  35  71  7c +0 0 , 

.1O0473719E+00,  . 320 79679 9E- 0 1 , 15* 0 . , 

.1 OCOOOOOOE+Ol,  . 140728789E+01,  . 1 1 95 7* 4 74E  + 0 1 , . 7 1 65 46 27 9E *0 0 , 

. 308531086E+00  , . 86  758  8344  E-  0 1 , . 1 2 22  38  1 43  E-0 1 ,14*0 . / 


DATA( (COEFStl.J) ,1=1,21) ,J=8,10)/ 

1 
2 
3- 


-.10  0 000000  E+ 01,  . 144336841E+01,  . 1284235815+01-,-.-“' 
•427134791E+00 , . 15605 6330 E+ 0 0 , . 3 7 60 93446E-0 1 , . 4555 27 1 6 3 r-0 2 , 


13*0., 


•1000000 00 E+01,  . 147222939E  + 01,  . 1 365 595 06E  + 01 , . 9 7 10 5 3 49 2^ *0 0 , 

- ,542171113E+0Qr  . 23406 78 1 9 E+ 0 0 , . 744588  241  E- 0 lr  .-15-71^34  77  3G~0-W- 
. 1 669Q7415E-02, 1 2*0 • , 

. 1 OG09  00 00 E + 01 « -.I49583829E  + 01,  . 143484043E+-01  ,-.-lfr764941-?::-+81^- 

.551472159E+00 , . 31 66 468 43E+ 0 0 , . 1 2 0429 9 66E+ 00 , . 3397 54 29 7c-0 1 , 

.538003544E-02,— . 60 34 2 610 6E- 0 3 , 11*0./  

DATA  ( (COEFS(I, J) ,1=1,21) ,J= 11, 12)/ 


-.  1 OOOOOOOOE  + Ol ,-.  151550699E+01,  . 149361  7 39 E + 91-,—.  l*79£5-6-*45+"fr-W- 
. 754267233E+00  , . 40 0960565E+ 0 0 , . 1 73246609E  + 00  , . 5899 79 G 1 ?E -0 1 , 


-.149638849E-01,-  .253166366E-02,  . 2 1 57 82949E-03 , 10 *0*, 

• 1000000  CO E+01,  . 15321 44  56  E+  0 1,  . 1 544 379 97 E + 0 1 , . 1253550825  + 01, 

— -.55038172flE+00,  . 4«  51 1527 1 E+ 0 0 , . 230940864E+-00  ,— « 90S144-5-15E -6  1 r 
,2  7 77  8 4 5 46  E-01,  . 640327792E- 02,  . 9 858 0 31 04E-0 3 , . 7645972C5E-C 4, 

--9*0./ - - 

DATA  ( (COEFSt I , J) , I = 1, 21 ) , J= 1 3, 14) / 

. l-e-OOOOOOOE+-Dl,  . 154640200E+01,  . 1 588 63449E  +01 , 


.939989604E+0C,  . 56 787942ZE+ 0 0 , 

- - .4 484072 19 E-01,  . 1 2660 66 45 E- 0 1 , 
»?68830186E-04,6*0., 

- 100000000E+01 , . 155875676E+01, 

•102344 8 83 E+01,  . 648 4« 73 07 E+ 0 0 , 

- .559509115E-01,  . 21 569 28 74 E- 0 1, 

3 . 142930672E-03,  . 9391 8 6e 94 E- 05 , 7* 3 . / 

— DATA-  < (COEFSdtJl,  1 = 1,  21)  , J = 1 5 , 16)/ 
l .1Q0000009E+01,  .156957566E+01, 

-2- . 110120153 E~+  01 , . 726493597E+00, 

3 .907876939 E-01,  . 332465544 E- 01, 


29  19  08455E  + 00  , . 126135  7965  + 0 0, 
26  752322  7E— fl 


1627  5828'7E  + 31»-  .-1 
3548  911 06E  + 00 , . 166455  7905+0  0, 
561522506F— 02,  * 109546 46 9E-02t- 


V - .441065053E-03,  . 534 76 30 94 E- 0 4, 


.100000C00E+01,  .157912776E+01,  . 1692 99639E+91 , 
.117370319E+01,  . 80 166 1253 E+ 0 0 , . 48 32 89957E,00 , 
. 1 1897 15E6E  + 03  , . 47 696 7C 9 6 E-0 1 , 

.1 0345e762E-02,  . 1 7 50 3 39 3 7 E- 0 3, 


9 

6 * 

7 
3 

9 5*9./ 

DATA  ( (COFFSd,  J>  ,1  = 1, 21)  ,J=17, 13)/ 
l .IGOOJOOOOE+Ol,  . 158764505E+01,  . 1 7 2 0 '0 1 3 5E +0 1 , 


1662131 04E+01,  .145589219^+31, 
418927491E  + 00,  2-HHr 445  7 7^+0  0 

100741903 E-01,  . 243386 747r-0 2, 

3 2 64  54  756 E-0  5 r6*0-.  , 

15124251 9C+0 1, 
?564  6°-965=+-06  ,- 
45353  = 571—0  2, 


1624  93385E-0 1 , 
1982  77412E  — 94, 


156J26T4J'+01, 


1 


! .1241530425*01,  . *740  3 Cll  3E*  0 u , 

! ' .1501679  42  E^OO-,-  . 648779669E-01, 
► .? 04823O11E-02,  . 43306 127 2E- 0 3, 

i  — . 3-oi06P170£-06,4*C.  , 
i .1  00000000E+01,  . 159519196E401, 
' - .1  30416870E401,  -.942504583E400, 
I . 1 8 35327155400  , . 844192505E- 0 1, 
) — . 358533359E-02,  8*2755369E-03, 

.264868140E-05,  . 1332 66440 E- 06 , 
D AT  ft  I ICOEFSII.J) ,1  = 1, 21) . J= 19. 20) 


1 *1000000 0QE+ 01,  .1602207295401, 

2 .1 366790775*01,  . 101l9934lE«-01, 

3 . 2 2119 14  06E4  00  » . 107452393E400, 

— 4 i-=90515137E-0  2,  - i 16739 3684 E- 0 2, 

5 .1 065G6050E-04,  . 10 1327896E-05, 

5“  . 16000  OCOOE  + Ol , . 160498047E* 01, 

7 .138378906E+01,  . 10498 0469E4 0 1 , 

3 .?37304688E*00,  . 11  5966797  E+  0 0 , 

3 .3774902345-02.  . 229644775 E- 0 2 , 

- -1  • 1°0734663E— 04,  . 196695328 E-05, 

2  0./ 

— OATft  <COEF5(I, 211 ,1=1,21)/ 

1 . 1 000G0000E+01,  . 166033513E*01, 

2-  -.1P5338184E4Q1,  . 15*87 159 2E *0 1 , 

3 . 6693  7255 9E *00,  . 3255 61623E4 00 , 

— 4 .40496  82625-0  W~.  1601 4 09916!-  0 1 , 

5 .4214048395-03,  . 70 27 3 8752E- 04 , 

— 3 4 9«<me48E-0 7 / 

LH=L  3 ft  X 

A ft  = 1 . 

00  20  L=2 , L HA X 

AA=-A  A -- - — 

FSU9!.  ( L , l)=COEFS(L,LN)  *5SUPL  (1,11* 

F5tHtrlL,NX>  =50EF5  I tr,  L*f>  *FSUBL  1 1 , NX 

20  CONTINUE 

— RETURN 

ENTRf  9NDC0F 

0 f>-  1 0 J-  1,21 

OO  13  1=1,21 

AI^-OATm 

EAC=50PT  C2.*AI-1. ) 

COEc5  II,  J)=COEFS(I,-J)/FAC •• 

10  CONTINUE 

RETURN - 

END 


.5475683215400, 

.2423/4622e‘-01, 

.687328287E-04, 

.1745643625401, 
.6104  533745*00,- 
. 3412246735-01, 

- . 1773009175-03, 
3*0.  / 

.1769569435401, 

• 6/63  49  365 E 4-00  ,- 
. 4647445605-01, 

. 39  04  19423E— 03, 
.4360339695-07, 

. 1775634775401  ,- 
.6962 49 0635400. 
.5126  55313E-01, 
•514954131E-03, 

• 13  03  85  160 E— 05  ,- 


. 3043  95  40  lc  4 0 C , 

-.  7741-39166r-02i — 
. 7*09531.4  75-05, 

.16093C  634r  4C 1 , 

3541  641 2 4**06-, 

.1193196415-01, 
.26436"  1-4-35 -C4t 


. 1664*919  75  401  , 
.4872  41-52-16-466  « — 
• 17  7S6a525r-01, 

-* -7 40-7 36*7  2 35  -O ~*r% 

2*0.  , 

-.  16  6!  45-7  3-35-4  0-1“, — 
.420410156^*00, 

. 10  7765  193F-0  3, 

-.  76  *3  411245-0*, 


.1070947275401, 
.1249145515401,- 
.185394287E400 , 

- , 5 773 31 2635-0 ? »- 
. 112950  8 02E-0  ’■»  , 


. 206768799**01, 

• 3 5-7-9  55  6645  *0  ■>, 

.9782409675-01, 

.8102506405-06, 


Subroutine  SCATCO- Legendre  scattering  coefficients 


SUBROUTINE  SCATOD 

COMMON  PL  (201,511  ,AMUt201).FSU9L<51,lCl)  .POLO  t 51.  1 01 ) , PG  AUS  < 5. 51 1 
X ANGM  J C 6)  , Q ( 51 ) » Z t 51  ) »SL  ( 5 1)  » F OCH  RG ( 1 0 1 ) *MACH°GtlD II .CMRCflOl), 

TEO»D5  <101 ) .LMAX,MX,LA“0O*.fTAtISCATfOS,JSM4X,JS<rP»MU7-5Or!5O=rtf_ 

ZKXSR:F,IOBG,IPRNT,METAL,WF»101> ,H9 1 1 0 1 1 , MNET 1 1 01 » . OELX , »S I G , 

ttXSOJRCF,EZ£R3tECJT,ENRGY.SORVI5l,101l  .SLCt=»i,  101) 

REAL  MUZE°0, LAMBDA 

IFtlSCAT.GT.l)  G>  TO  10  

ISOTROPIC  SCATTERING 

00  5 L=1,LMAX  - 

0<D - 0. 

5 CONTINUE 

0<1I  = 1. 

RETURN  --  — — - - - - — 

SCREE NEO  P.UTMERP0R0  SCATTERING 

10  El»«l ./II .♦0.5*ETA>  > 

Ztl)  =0. 

-Z«2» = ALOGtl.*?./ETA)-El  

C1=E1/ETA 

- 9HIN=1.E6  - - - 

00  11  L=3,LMAX 

At=PtOAT«L-2»  — - 

9L  = ?.*ALM. 

- CL=At*l. - - 

Z IL»  = (PL*  tl.*ETA) *7 » L-l > -CL*Z  (L-?) -3L*E1 )/AL 

- DD  = A3S<Z<L  H- C 1) — - 

IF»OO.GT.OMIN»GO  TO  11 

— -OMIM*  DO- - 

LN=L 

11  CONTINUE  — ......  . 

IFtLM.EQ.51)  GO  TO  1 7 

- 00  13  ~L*LM,  51 - - 

Z CL)  =C1 

16  CONTINUE - — - — 

17  3(11  = 1. 

-OP-  1?  L*1  » 51  --  — 

QfL) =Q(1) -ETA/E1*Z(L) 

12-CONHNUE- — — 

RET  JR  N 

END  - — - - 


Subroutines  POLYN,  LEP  - Legendre  polynomial  computation 


T 


SUBROUTINE  POLYN 

BONBON-PL  < 201*,  51»'.  AMU<20*»  .FSUBL  <51,-10 11  ,FOLO  < 51tHM  t 

XftNGiJ  (6)  ,Q(511,Z(51I  ,SL<511,FOCHRG<1911,3ACHRG<1011  ,CH«>G<1311, 

— yEOPOS  <ltl) »LHAX, IX*  LAMBDA  »£TA ,1  SCA  T , OS  tJSNA  X?  JS<I  *tMU?E^0t"I''*O'>'C£» 

Z<XS^:F,IDBG.IPRNr .HETIL.HFClull » MB (10 1 ) , MNET  f lfll » , DELX, ASI G, 

— ■ — XXS0JRCE,EZE»0,E:JT,EN*GY,S0RV<51, 1011, SLC<51, 1011 

REAL  MUZEPO, LAMBDA 

0 {PENSION- V <511 

ANU<1)=-1. 

-00' lr  1=2,201 — 

AMU<l>=AMU<I-l»*0.01 

— - - 1 CONTINUE - - ....  ....  - 

00  2 1=1,201 

X=A1Jtt> 

t L=L i * X-l 

-CALL  L£P< Y,X,LLI 

00  2 L=1 » LNAX 

— - PL  < I , L I *Y  llrl * - - 

2 CONTINUE 

END 


. ..  * 

SUBROUTINE  L* P t Y, X , N) 

. oi"EYSION  Y <51 1 ■ - 

Y 111 =1. 

- --  --  IF<N>  1,1,2  

1 <?ETJ>N 

2 Y<2»  -Y  -- 
IFfN-Dl,  1,3 

- - — 3 00  ’♦  1=2, N 

G = X*»  <11 

- - «.  Y C I 1 )=G-Y  <I-l)*S—<  G-V  <1-1)1  / FLOAT  <I> 

BET  J R N 
- E NO 


* Subroutine  LEP  .i*  extracted  from  the  IBM  System/360 

Scientific  Soubroutine  Package,  Publication  NO.  H20-0205-3 


Subroutine  FZERO-Initial  flux  coefficients 


SUBROUTINE  FZEPO 

- COMMON  PL  (?01, 51)  , AMUf  201)  ,FSU9L  (51,101)  ,F0LD(51flGlT-,PG-AUSf5-,51r*i 

XANGNJ (6)  ,0(51), Z(51)  .SLISll  ,FOCHRG(101) , 9ACH»G  (101) ,CHR3  ( 101 ) , 

YE0*»0>  (101)  ,LNAX,NX,LAM30A,*TA,ISCAT,0S,JSi4Xf  JS<IPtHU?E;>«vISO''r«^ 

Z<XSRCE,I09G,IPoMT,METAL,'(F(lC'l)  ,W9(1G1)*NMFT(101)  »0£LX,1STG» 

4XSOJRCE,EZERD,ECJT,ENRGY,SDRV(51,101)  ,SLC(51,101) 

REAL  MUZEPO,LAM30A 

r>IMC^ION  SIM (201), SIGMA (1001  - - — 

DATA  EPS/1. E-G/ 

— rj*TA  PI.M/3.141532S54, 0.  01/  

DATA  ISTA9T/0/ 

2 -DETERNINF  INITIAL  ANGULAR  DISTRIBUTION  . - 

I F( I SORCE . GT. 3)  SO  TO  20 

---  2 - --ISOT JOPIC-SOJRCE-  ------  

00  10  L=1,LMAX 

. . ..  — sl(L) -0. - - 

10  CONTINUE 

SL ( 1 ) =1 • - - - 

GO  TO  30 

S - HONOOIRECTIONAL  SOURCE(OELTA  FUNCTION  IN  ANGLE) 

20  00  1 M = 1 » 10  0 

- - ---  ARG=aI*FLOAT(N)/l00  • - 

SIGNS (N) =SIN(AP5) /APG 

1 CONTINUE-  --  - - • * 

DO  2 1=1,201 

SUM(I>=0.5 — 

0IF=AHU(I)-MJZER3 

DO  -2  N=l,99 

AN=FL  OAT ( N) 

~ -SUH(I )=SUH(I)>SISNA (N) *COS(AN*DIF)  --  

2 CONTINUE 

-  OO  3 1=1 , LH  AX  - — - - 

ANS=3 . 

-  00-  4-1=2,  20  0,  2 

ANS  = A NS+SUM (I ) *9L  f I , L) *4 • 

— - -4  CONTINUE-  - — - - - ..  .. 

00  5 1=3,199,2 

--  ANS=  A MS*  SUM  H>*9L(I,L)*2. - - 

5 CONTINUE 

...  --  ANS=ANS*SUMtl)*«»L(l*L)*SUM(201)*®L<?01,L> 

F AC  = 1 . 0 

-rF((A0S(NUZERO-l.  0)  ) .LT.EPS)FAC=2.-  - - 

SL(L) = ANS  *H  * FAC/ ( 3. *PI) 

*■  • -3  CONTINUE : 

30  TF( I SORCE .EQ.l.OR. I SORCE . EQ. 4 ) GO  to  40 

_ . IF(I$0RCE.EQ.2.0R.IS0RCE.E0.5I  GO  TO  50  - 

IF(I50PCE.E0.3.0R.ISORCE.E0.6)  GO  TO  GO 

C - SPATIALLY  UNIFORM  SOURCE  

40  00  41  KX  = 1 , NX 

00  41  L=1,LNAX  - - - “ 

FSU3L (L,<X) =SL (L) 

- 41  CONTINUE-  - 

return 

C SPATIAL  OELTA  FUNCTION  (3  CELLS)  

50  00  5 l L=1,LMAX 

FSU3L (L, <XSRCE) =3 • 5*SL (L ) • - 

F SU3L  (L,<x*:occ»l)=0. 25*SL  (L> 

( o'l 


FSU3L (L*  XXSRCE-1) =0.25*SL(Ll 

51  CONTINUE ....... 

RETURN 

C GAUSSIAN  S°ATTAL- DISTRIBUTION 

60  X X= - 3 FLX 
SPI=30RT(PI» 

9SIG= ASIG/SPI 

00  61  XX= 1 , NX  - - ■ - - - - - 

XX=XX*OELX 

A“=A5IG*(XX-XS0URCE»  - 

VALJi=PSIG*EXP(-AB**2» 

- 00  61  L=1,LHAX  ...  ... 

FSUBL  (L,XX>  =VALUE*SL  <L  > 

61  CONTINUE • ...  — - - — - - 

RETURN 

- ENTRT  SOURCE-  ~ - - - - - 

IFIISTART.NE. OICD  TO  110 

REMIND  5 
DO  111  L= 1 f LNAX 

DO  111  KX  = 1,NX  — - - - - 

SLCC.  , XX) =0.0 

-111  CONTINUE  - - - 

110  00  103  L= 1 « LNAX 

- -DO  153  XX  = 1TNX - ...  

SDRY(L,XX)=SLC(L,XX> 

-103  CONTINUE — - 

00  101  L=1,LNAX 

READ  (51-  (SLCftiXX) ,XX=1,NXI  - ----- 

FSU3L (Lil)=(5LC(L*2)-SLC(Ltl))/0tLX 

- NXls  N X— 1 — 

FSUBL (L,NX)=(SLC(L,NX)-SLC(L,NX1))/DELX 

- DO  102  XX  = ?tNXl - - - 

FSUBL  (L,XX)=0.5MSLC(lfXXM>-SLC(L,XX-l>  )/OELX 

1 0 2— S ONFI  NUE — 

101  CONTINUE 

IF(IS-TART  ,GT.  01— TO-104  - 

00  136  L=1,LNAX 

READ(5>tS0RV(l«<X> , KX=1,*X>  - 

DO  107  XX=1,NX 

- SORVI  L,XX»*(SORV(L,XX»-SLC(L.KXn/OS  

107  CONTINUE 

106  CONTINUE  ----- 
ISTART=1 

00  116  L=1,LNAX  - - - 

BACKSPACE  5 

116  CONTINUE  ~ - - - 

GO  TD  103 

- 104  00  195-t*l,LNAX - 

00  135  XX  = 1 » NX 

SOP V ( L i X X ( = (SLC (L » K X I -SOR V (L » X X I > /OS  - - - - 

105  CONTIMUE 
103  RETURN  • - 

END 


I—  *c  , .•  <-•  V -i.  t -y.  \ -»-* 

v v? "*  r * ’ " ? . ' 


Subroutine  LEGEXP-Flux  angular  distribution 


SUnRDUTTNE  LEGEX’ 

PL  <201, 51)  , A MU (201  ) ,FSU9L  (51,101)  .POLO  ( 51  *“101 ) , »0 A US (6, 51  d — 

(1NG1J  (6)  ,0(51)  , Z ( 5 1 ) , SL  (5 1 ) , F 0PH9G  (101)  , 3ACHRG  (13  1 ) , CM=>G  ( 1 31  ) , 

fED«»0  5 (101)  ,LMAX,MX,  L AMDOA  ,ET  A , I SC  A T , OS  , J SMA  X , JS<I  » , MUZEROciSOoCE-? 

ZKXSRCE,IDOG,IPRNT,METAL,WF(101)  . W9  ( 1 0 1 ) , V»NET  ( 1 01)  , PE  LX  , A 3 ! G, 

* WXSOJRCe.EZERO,ECJT,ENPGY,SORV(51.101>  ,SLC(51,  101) 

REAL  MUZ E°0, LA M3 DA 

— DIMf^SIOY- Y(51),c(?01) 

03  13  1=1,6 

- * SUM=3i - 

DO  It  KX  = 1 * NX 

- • F(K«)=0.  - - - • • * ' 

00  1?  l=i,lmax 

—  AL=3.5*FtOAT(2*L-l> - 

F (KX) sF(KX) ♦AL*P3AUS(I,L) *FSU8L (L,KX) 

--  — — 1 0 ONT I HUE  

SUM=SUM*F (KX) 

. ....  n COMrTNUE  - ------  - - ‘ 

PRINT  13 , ANGMU (I I 

—13  F0»1*T(/1X,*ANGJLARFLUX,-MU=*,E13.6)  - 

IFdDOG.NE.  0)  PRINT  14,  (F  (KX)  ,KX=1,NX) 

- - - 14  FORMAT  <1X,1GE13.S) - — - 

PRINT  15, SUM 

15  F0°1»T(1X, ’ANGULAR  FLUX  SUMMED  OVER  K=*,E15.9»  

10  CONTINUE 

ENTRY  POLANG 

AMGMJ  ll)  = . 2306192 — 

ANGMJ (3I=. *612094 

• — -ANGMJ<5)=. 9324695  - - ... 

A NGN J (2) =-ANGMU(l I 

- - ANG1 J (4) =-ANGMU( 3) — - - 

ANGMJ (6) =-ANGMU(5 ) 

-00  11  = 1 , 6 — 

x=a.n;mu(I) 

--  - CALL-LEPIY,X,50>  — 

DO  2 1 = 1 » 51 

PGAJS  W,L  V-=YH.'l - - - 

2 CONTINUE 

•- 1C0NHM0E-- — - ...  

RFT JRN 

■-  - END-  -----  - - - - - 


Subroutine  TPLOT-Plots  computed  results 


SU9RDUTINF  TPLOTI NY,M, J.KALCOMP) 

DIMENSION  X<20?.l,Y(2ai),VLA31(l9)  » VL  A B 2<  25  I » HL  AIL  ( 16  ) V 

1 VLA9C 30) 

DIMENSION  UVCHARf  t»>  ,MCHR<5>  — ' " 

DIMENSION  TITLXC3) , TTTLY<3) , T IT LI ( 3) , T IT  12 ( 3)  ,PRDGI0 (3) 

— --  DATA  MCHR/1H*,  HX,  1H-*,  1H0,1H./-  

DATA  HLABL/1HP,1H0, 1HS,1HI,1HT, 1HI,1H0,1HN, 1H  ,HI,1HN,H  ,1HS, 

t-HA.lHP/ - 

DATA  VLAB2/1HE,1HN. 1HE,1HR,1HG, 1HY ,1H  , 1 HO  , 1HE  , 1HP  , 1 HO  , 1 HS  ,HT,1HT 

_ 1H0.1HN.1H  ,1HO,1HR,1HO,1HF,1HI,1HL,1HE/  

DATA  VLA91/1HC, 1HH, 1HA,1HR, 1HG, 1HE,1H  ,1HD, 1MI ,1HS , 1HT , H» , 1 HT , 1 S9 

- • - X , 1H'J,  1HT,1HI,  1HO,  1HN/ . - 

DATA  NHCHAP,NVCHAR, I MAGE , NCHA X , NVCHX/ 1 6, 19,25,19,25,0,30,25/ 

- - DATA  XSCALF,YSCALE,NPtrOT,NPRNT/6.0,B.0,0,0/ 

DATA  TITLX/IOHPOSITION  I,10HN  SLAB  <RA,10HNGE  UNITS)/ 

--DATA  TITL 1/10 HC MARGE  D IS  , 1CHT  RI  3UT  ION  - , 9 FF'JNCT  ION/ 

DATA  TIT12/10HENER3Y  DEP, 1QHOSITION  PR,8HOFILE  / 

--  - - ICHR=0-  - ' - 

YMAX=  0 . 0 

— READ! J)  JS, (XtKK) ,KX=1,NX) - - - 

20  READ(J)  JS,  <Y  CKX)  ,KX  = 1,NX> 

— IF(EDFtJ)  >21,2* 

22  DO  13  KX  = 1 , NX 

- - -I  F ( Y ( KX  >-.  GT-,  Y MAXFYM  A X=Y  ( KX)  - - --- 

13  CONTINUE 

50  fit  *20 

21  REMIND  J 

hiotm— XCNX) — 

IF(<AICOMP.E3.0>  GO  to  is 

- - lF(N«»bOT.EQ.O)-REAO  17,(PR0GID(I)  ,I=1,3V  

17  FORMAT (3A10) 

KK=I  = IX(ALOG10(YiAXF)-  


I F (K  < . GE.  0)KK  = KK»1 

5 YTD^FLOAT  (K-tCF 

CY9DT  =CYTOP-5.0 

— " - NVCM  = NVCHARNJ> — 

00  15  N=1 » 3 

r e ( iirFO.^ OR .-J rEO*  3 HT-HRtY  ( N ) = T I Tti  INK 

IF(J. EQ.2.0R. J.ED.  U)  T ITL Y( N) =T ITL2 I N) 

i6-CONFI-NUE 

NPLOT=NPLOT*1 

CALL  SMLGPLTIX,  Y,  NX , HIOTH , X9T , CY TOP, C YBO  T,  XSCALE, YSCALE, TI TLX, 

XnCHA  X f-TITtYiNVCNX  , PROGID»  NPRNT  , NPLOT  ► 

15  YMTN=  0 . 0 

- CALL  PLOT2I IMAGE,  MIDTH,0 . 0,YMAX,VMIN, IC)  

1 READ! J) JS, (X(KX) , KX=1,NX> 

_ . 10  <?£A9I  JKJS,  (YfKX),KX  = l,NX) - 

IFL3=0 

— IF(EDF(J)  .NE.  0)I-LG^1 - --  

IFKALCOMP.EO.  0)30  TO  18 

I F ( I = LG,  EO  • 1 ) GO-  TO  19  - ...  

CALL  CURVE  (X,Y, NX, MIOTH,X3T,CVTOt>,CYBOT,XSCALE,  YSCALE, TTTLX. 

XNCMAx, TITLY.NVCMX, PROGID, NPRNT, NPLOT»  

18  ICHR=ICHP>1 

I p( I C H*>, GT . 5)  ICM’  = 1 - - - 

MAR<=mCHR( IGHR) 


< > ...  " 

■ ^ y A •*. 


IFII-LG.EQ.DGO  TO  3 
12  CALL  PL0T3»MARK,X,r,NX,IC> 

GO  n 10 
3 WRITE  < M»  201 > 

01  FO°!W»  T (*1*> 

NVCH=NVCWAO< J> 

00  1*4  N=1,NVCH 

IF< J.  EO.l .OR. J.EQ. 3) VLA0(N) =VLA91(N> 
IF< J.  FQ.2.0R. J.E7 .41 VLA0<N) =VLAB2(N) 
14  CONTINUE 

CALL  PL0T4  CNVCH./LAO.NHCHAR.HLAOL, IC) 

RETURN 

ENO 


SubroutinesPLOT2,  PLOT3,  PL.OT4  are  too  long  to  include  here. 

They  -are  part  of  a printer-plot  package  written  by  Mr.  Michael  -Clark, — 
Prof.  Brice  Carnahan  and  Mr.  Michael  Duncan  of  the  University  of 
Michigan.  .These  may  be  .obtained  from  Prof.  Carnahan,  Chemir-al  Fng 
Dept.  , U.  Mich.  , Ann  Arbor,  Mich.  48104  (phone  313-764-3366)  or  from 
£.  Woolf , -Arcon  Corp. , -Waltham,  Mass,  (phone  890-33301 


Subroutine  SMLGPLT-Semi-log  plotting  program 


I 


SUBROUTINE  SNLGP'.T  ( X,Y  ,N XY , X TOP , XBOT  , CYT  OP  , CY  BOT  , X SC  ALE  , Y S CAL"  , 

iTITLX,NCHARX,TITLY,NCHAPY,PROGID,NPRNT,NPLOT>  - 

DIMENSION  X(ll , Y( 1 > , TITLX  (3) , TI  TL  Y ( 3)  , PROG  10  ( 3 ) , XPLOT  (201)  » Y PL  OT  (2 

10il,f*><201»  - --  — 

DATA  XMAX,YMAX,eACTOP/150.*li.» 1.  / 

IF(NPLOT.E0.1»CALL  PLT  10  3 (PROGI 0 , XNA  X , YN  AX,  F ACTOR ) 

IF(N3L0T.E0.1)CALL  PL OT ( 4 . , 1 . , - 31 

<PV  = 3 - - - - - — - - - 

XM0VE=XSCALE*4. 

IF(N=LOT.NF.l)CALL  PLOT < X MOVE , 0 ., -3>  

DX=(X TOP- XBOT) /XSCBLE 

QY=( CYTOP-CYROT) /YSCALE  - . 

ICALL  =1 

CALL  AXUS(X30T,XT0P, 1,DX, XSCALE, YSCALE,T ITLX, NCHARXrRGALLR 

1 0 A L L = ? 

CALL  AXUS (CYBOT, 3YTOP,2,OY,XSCALE,YSCALE  ,TITLY  ,NCHARY  , IG4L-L) 

RETJ?N 


f* 

ENTRY  CURVE  - — 


KRV=<RV«-1 

— YHI  = < 10.  » **CY-TO® 

YLO=< 10.  >**CY30T 

■ - - - KL=  0 - - --  

00  1 N=1 , NX Y 

_ — Y Y=  Y ( Nl  — - --  - 

XX-X(N) 

~ — IFIYY  .GT.YHIV-  GO  TO-1 - 

IFIYY .LT.YLO)  GO  TO  1 

IF(XX.GT.XTOP)  GO  TO  1-  

IF(XX.LT.XeOT)  SO  TO  1 

YPf<L )=YY 

-  - XPLOT  IKL)  =xx  

YPLOT (KL) =ALOG10( YYI-CYBOT 

— 1-GONTI-NUE 

NPT=<L 

PRINT  10 . NPLOT , <RV - — --  

10  FORNATI//iX,*PLOT  NO . * , I 3 , ?X , *CURVE  NO.*, 131 

- IF(N3RNT  • E°  • 9 )-  GO  TO  2-  

®RTNT  11, (XPLOT (<L) » *P ( KL ) ,KL=1,NPT) 

11  FORNAT  (1X,10E11.5)  - - - 

2 CALL  LINE (X®LOT, YPLOT, NPT, 1,0, 0, 0., OX, 0. ,OY,0. 03) 

ENO 
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Subroutine  AXUS-draws  logarithmic  axis 

(This  subroutine  has  been  superceded  by  an  AFGL  supplied  routine  called 
AXLOG  which  may  be  accessed  from  the  AFGL  plot  utility  library) 


SUBROUTINE  AXUS(X1,  X2,LX 
DIMENSION  TEXT (3) ,E ( 14) , 
Oft TA  TEX1/3HX10/ 

DATA  TEX2/4HX10-/  — 

0 AT  ft  E/2H10,1H9,1H8, 1H7, 
OflTft  NF/2, 13*1/  - - - 

DATA  YC/10. ,9. ,3. ,7. ,6., 

IF(IC ALL. E0.1) M=-3 

— - go  r>  (ioo, zoor.LXY 

X AXIS 

100-  XLW=X  1/0  - - - - 

XN=X3CfiLE*XL<( 

C ALL~  PtOT  ( 0 . , 0 .»■+> 

CALL  PLOT (XLW, 0. , 3) 

— CALL- PLOT (XH, 0., 2) — 
CALL  PLOT (XL4, 0. , 31 

— - EPS  = 1 . E-6 — 

X0IF=anS((X2-Xl»»(l.*EPS 
IL=I"IX( AL9G10  (XDIF)  ) 
IFCIL.LT. 0)  IL= IL-  1 

— Fer*=ie.  o**tl - — 

XTLA3=X2/FCTR 
X3L4^=X1/FCTR  - 

ITE3T=IFIX  CXTLA3-X3LAB*E 

D0-=^i-l~*FL-OAT!i  FTE3T) 

01=( KTLAB-XBLAB) /XSCALE 

OOO^O  fl/Ol 

L MAX  = 1*1  FIX  <(XTLft0-X BLAB 

— — XL=XL  W-000  — 

XLL=  < BLAB-00 

00-10  2 L=i,LMAX 

XL=XL+000 

CALL  SYMBOL (XL, 0. , 0 . 1, 13 

XL1  = XL“.  1 5- 

CALL  NUMBER (XL1»-.15,0.0 

102-5  ON  T-tNtfE 

CALL  PLOT (0.95, -0.4,3) 

XAT^trOAT  (NTHHi.-iO 

XSTA?T=XLM+O.R* (XH-XLM-X 

C ALt — SYMBOlr(XSTAR-T  ,—0.5, 

F A = rL  OAT ( I ABS  (IL)  ) 

-0  0~3  9 6~ TI  =1*11 

IF(A3SIFA-YC(II)).LE.EPS 

30O-C0NTTNUE  

307  S=Ef II  ) 

J*M*f  II) - - 

XAT=C.15*5. 

XSTft>T  = XLW«-0.5*(  XH-XLW-X 
I F ( I L . GE . 0 ) GO  TO  308 

TEX3-TEX2-  - • — ■ — 

N E X = '* 

GO  TO  309  --  

30“  T EX  3 = T FX 1 
NEX=3 

309  CALL  BYMBOL ( XST A’T , - . 75, 


Y,  0, X SC AL E,r SCALE, TEXT, NT, ICi 
NE ( 14 ) , YC ( 14 ) , ALGf 9 ) " 


1H6,1H5,1H4,1H3,1M2,1H1,1HC, 


5.,4.,3.«2.,1.,0 


2 . , 3 . / 


♦EPS) /00) 


0 . 0 , - 1 > 


6 ,XLL,  0 .,D 


AT) 

0.15,TEXT,0.  , NT)- 


) GO  TO  307 


. 15,TEX3,!).,NEX» 

1 1 3 


XSTA?  T=XStAPT40.15*FLOAT  (NEX) 

CALL  SYMBOL  <XSTART,-.65,.1,S,0.,J> 
RET'JRN 
Y AXIS 

200  CALL  PLOT (XL*, C., Ml 
CALL  PLOT (XLW, YSC ALE  ,2) 

CALL  PLOT  ( C • , 0 .v,  3 ) 

- DO  55  1 = 1,8  - --  - 

ALG(  I )=ALOG10  (FLOAT  (I)  4-1.  0) 

50  CONTINUE 

LY=ICIX(X2-X1*0.0001) 

00  23 1 L=1,LY 
LL=L- 1 

YL=pL OAT ( LL >/0  

XLT=XLW-0 . 05 

CALL  SYMBOL < XL  7 , YL  , 0 . 2 , 1 3 , 90  . , - 1 > 
YL1=" LOAT (L)70 
0 Y = Y •_  1 — Y L 
DO  234  K = 1.B 

YL2=YL+ALG< K> *OY - -- 

CALL  SYMBOL  (XLW,  YL  2, 0.  1,  13,90  .,-1) 

204  CONTINUE - 

201  CONTINUE 

- CALL  PLOT  (XH,0.,3» - - 

XP=X-»-0.  05 

- - XPl=XH-0 . 025-  --- - - 

00  235  L=1,LY 

- — LL  = L-1  - --  - - • 

YL=rL  OAT (LL  >70 

- --  CALL  -SYMBOL(XP,YL,0. 2, 13,90. ,-l» 

YL1  = r LOA  T < L ) 70 

OY  = f'_l-YL  - - — 

00  206  K=  1 * 8 

YL2=YL+At€(K> *DY  

CALL  SYMBOL (XP1,YL2,0.1,13,90.,-1) 
206-CONTINUE — - 

205  CONTINUE 

XL  = XtW— 0,41 

XL1=XLW- 0.25 

-XL2=<LN-0.18 - --  - 

XL0=XLM-. 33 

LY  = LY41-  - - 

CY=A9S(X1> 

00  237-1  = 1,11-  — — 

IF(A3S(CY-YC(I)>.LE.EPS> IC1=I 
207  CONTINUE 

ic=i: 1-1 

00  20-2  t = l,tY - 

LL=L-1 

YL  = CJ.nAT(LL>70-.05  

YL1=YL*0.1 

CALL  SYMBOL (XL, YL ,0.08,49,0.0,-1) 
CALL  SYMBOL (XLO.YL, 0.08,48,0. C, -II 

ic=r:«-i 

IF(i: .GE. Ill  GO  TO  203 
CALL  SYMBOL (X LI, YL1, 3. 07,45,0.3,-1) 
2 33  S = E ( r C ) 
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APPENDIX  2 


Programs  GAUSQN 
ANISO 
GNLEG 
LOOK 
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Program  GAUSQN 


Program  GAUSQN  computes  the  reduced  source  functions,  G (q)  for 
isotropically  scattered  particles  emanating  from  a forward- directed 
point  source  in  an  infinite  medium. 

The  routines  are 

1)  GAUSQN  - Main  program,  performs  Gaussian  quadrature  integration 

of  isotropic  G^  recursion  relation. 

2)  Subroutine  SETUP  - Reads  in  Gauss  quadrature  weights  and  ordinates. 

3)  Subroutine  SPCOEF  - Computes  spline  interpolation  coefficients. 

4)  Function  SPLINE  - Evaluates  G^  functions  at  Gauss  quadrature  ordinates. 

5)  Functions  AJ,  AI  - Evaluates  portions  of  integrands  in  recursion  integrals. 

6)  Subroutine  LINPLT  - Plots  results  on  linear  scale. 

7)  Subroutine  AXIL  - Draws  and  labels  linear  axes. 


Program  GAUSQN-Gaussian  quadrature  integration  of  G recursion  relation: 
Isotropic  scattering  « 


PROGR  AM  GAUSQN< IN PUT, OUTPUT, TAPE  1, TAPf 2) 


C 

C -His  PROGRAM  CALCULATES  THE  N-TH  SCATTERED  SOURCE  "UNCTIONS'  3‘Hf)  t~AS — 
C A FUNCTION  OF  K=X/S>  FOR  ISOTROPIC  SCATTERING.  IT  REGINS  WITH 

5-  G2  (3)  GIVEN  AS’ANANAtYTICAL  FUNCTION  OF  Q.  G3  ( 0)  I S-THr  N- ^ O*P'FTE0 

Z FROM  S?  IN  ACCORDANCE  WITH  THE  INTEGRAL  EOUATION  FOR  GlHl(D)  IN 

C-  TERNS  OF-GN<aO  GIVEN-«*V  GARTH  IN  HIS-  NOTES  OF  5 SE5!  .1977  -PAGE— 

Z THE  IN  ANO  JN  FUNCTIONS  ARE  COMPUTED  HERE  IN  FUNCTION  SU3°R0GRV'S  AI 

C-  AN  0 A-i- RESPECTIVELY.  the  NUMERICAL  INTEGRATION  IS  PERFORMED — US  I MG ---A 

C 3?  POINT  GAUSSIAN  3UA0PATUEE.  THE  ARRAY  G3(0)  IS  STORED  TEMPORA^ILV 

C - IN-  CORE  AND-IS  ALSO  WRITTEN  OUT  TO  A HASS  STORAGE  =ILE--FOR 

C SU3SF0JENT  PLOTTING • THE  COMPUTED  ARRAY  G3(D)  IS  THEN  USED  TO 

C OBTAIN  GMQ)-,-  WHIOW-  IN  T'JRN-IS  USED  TO  OBTAIN  GSnp,  -AN9-30— ON-i 

C ALL  NJH  EDIC  AL  INTEGRATIONS  ARE  OONE  USING  THE  32  POINT  GAUSSIAN 

Z O'JAORATMRE.-  HOWEVER,  SINCC  THE  GN  F>JNC  T IONS  CXTSY  ONIrY—  IN  “T-ABUtrAR 

C FORM  FOR  N.GT.2,  THE  VALUES  OF  THESE  FUNCTIONS  AT  THF  GAUSSIAN 

C —ORDINATES  ARE-OBTAINED  BY  SPL-INE  INTERPOLATION  frSHA  HEINE-  -VNfl  ALt-EN 

C N'J  ME°IC  A L COMPUTING,  SAUNOERS,  238-239(19711  1 ON  THE  TABLES.  EACH 

C GN  EOT-  VPRA  Y — (-20't— V A LUE-S-  OF — Q-  EQUIS3ACE9  FROM  -1 -T0—H1  IS  ST0°-:0-ON 

C MASS  STORAGF  FOR  SUBSEQUENT  PLOTTING. 

C THE  PROGRAM  CONTAINS  AN  OPTION  TO  RENORMALIZE  THE  COMPUTED  GN 

C --ARRAYS  AFTER- EACH-  ARRAY -IS  OBTAINED.  THIS  I S-  DONE- -T9 — pEQUC-E-  E R^OR 

C PROPAGATION  INTROOJCEO  BY  NUMERICAL  INTEGRATION  INACCURACIES. 


C THERE  ARE  ALSO  OPTIONS  TO  °UNCH  THE  GN  APRAYS  ON  CAROS  AND  TO  PLOT 

0 — THE-SN- eURVES-ON-HE- CHtLCOMPr 

" - - DIMENSION  0(2-011,  Vf  32)  ,A  ( 32)  , X(  32)  ,GN  (201)  ,S(  201)  , -INDEX  (-E6-H 

OIMENSION  TITLX(3) , TITLY( 3) ,PROGIO(3) 

- DATA — T ITtY / 10  H6 ( 0 ) — I SOTR, 10 HO PIC  SCA TT , 5 HER ING/ 

OATA  TITLX/1H0/ 


C INPUT -PARAMETERS!- - - 

C NN A X = HIGHEST  ORDER  OF  SCATTERING  (N)  TO  BE  COMPUTED 

-C IWORM  - ~ RE-NORM  AL  I-ZfrTI ON-  OPTION  PARAMETER  - ( 0-ND— P.E-MOPH-ALI  Z At  ION> 

C 1 = RE-NORMALIZATION) 

C IRtOT-=-PtOT- 0»Tf0N- PARAMETER  (0=N0  PLOTS,  1=p.0TS1 

C IPJMCH  = PUNCH  OPTION  PARAMETER  (0=NO  PUNCH,  1=PUNCH) 

READ  l,NMAX,INORM,IPLOT,IP'JNCH 

i -FORM  VFT4I  5 ) 

n* 

5-  SUBROUTINE  SETUP-  READS  IN  THE  32  POINT-  GAUSS  I AN  QUftflPATURf  WEUSHTS,-fr 
C , AND  OPDINATES, W.  IT  ALSO  COMPUTES  tHE  Q ARRAY. 


CALL  SETUP (W,A,X«Q) 

SUMT-0.  ' — - 

OQ=.0  1 

- M A X = ? 01  — - - - 

N=  3 
M = M-  1 

CDMOUTE  G3 ( 0>  FOR  ?C1  VALUES  OF  0 FROM  G2(C). 
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jno  non  n no  uciii  nuu  , n n n o o n unun  n onon 


DO  IOC  1=1,201 

E 1 = 0 . - 

I »=• « I . FO.  201  )G0  TO  31 


CONVERT  GAUSSIAN  ORDINATES,  W(J),  TO  THE  VARIABLE  OF  I NT  EG  ? A T I 0?'  FOP 

THE  FUST  INTEGRAL  IN  GAPTH *S  EXPRESSION  FOR  GN*1U)-  <5-S«T-r— H37-7-, 

PAGE  R? ) . 


the  SEOONO  INTEGRAL  IN  GARTH'S  EXPRESSION  FO»  GN*1(0>  <5SE3T.  1077, 
CONVERT  GAUSSIAN  ORDINATES , W<JJ,  TO  THE  VARIABLE  OF--I  NTE-G^A-T-I-O^-F^ 
PAGE  R? ) . 


00  1C1  J=  1 , 32 

101  x cj*  = o .5*  < (1-.  *-Qm » ♦ <1.-0  cm  *hc  j>  » — 

COMPUTE  THE  VALUE  0c  the  FIRST  INTEGRAL  {DENOTED  -AS — El— IN-39PE4-. 

00  13  2 J=  1 » 32  • • - 

E1=E1*0.5*  <1.-0<I  ) >*  A(J)*  AL0G12./C1.-X  <J)»  )*AI  <H,a<Il  ,X(J>  ,I,.I) 

102  CONTINUE  - - - 

COMPUTE-  THE-  VALUE  OF-THE  SFCOND-  INTEGPAL  C OEHOTCQ-AS-E-2-  FN-COOE)  . — — — 

31  E2=0.  — - - 

IF(I.EQ.l)  GO  TO  32 

— -00  13  3 J = 1 , 32  — --  — 

103  X <J»=0.5*  < (Q(I)-l. » ♦ <1.*0<T))*W<J) ) 

- 00  10  4 ' J=  1 , 32  - - 

E 2 = E ? ♦0.5* <1. *0(1) > *AC J) * ALOG (2 ./ (l.-XI J)l ) *4 J(M, Q(I» ,X<  Jl  ,1, J) 

104  CONTINUE  - - 

32  GN(I>  =0.5* <E1*E2) 

SUHT=SUHT*GN(I»*00  — - — 

— PRINT-53  ARRAY- 

-PRINT-305, I, 3<I),GNII>,SUMT, El, E2  - - 

3 05  FORNAT{1X,I5,F5.2,4C5X,F10.5>  ) 

100  CONTINUE 

IF(INORM.EQ.O)GO  TO  120 

--PPINT  E09,N-  --  

RE-NORMALIZATION  LOOP-FOR  G 3 ... 

00  It  0 1=1, 201  - _ . 

110  GN<I» =GN( I» /SUNT 

PRINT  RF-NORMAL I7E0  G3  ARRAY 

PRINT  336, (I, Dll) ,GN(I) ,1=1,201) 

WRITE  G 3 ARRAY  ON  MASS  STORAGE 

120  WRITE ( 1)N, <GN(I) ,1  = 1,201) 


LOOP  TT  CALCULATE  THF  GN(0)  ARRAYS  F0°  N.GE.3 


DO  5 3 N = 4 , N MA  X 
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M=N-1 

- AN=0.5*FLOAHN-1> 

sunr=  o. 

PRINT'  77,N - — - 

77  FORMAT (*i*,5X,  *N  = *,  I2> 


3 GET  S°LINE  COEFFICIENTS  OF  PREVIOUSLY  CALCULATED  GN-1CQ). 

CALL  SPCOEctMAX,0,GN,S,IND-X> 

C COMPUTE  THE  VALUE  OF  THE  FIRST  INTEGRAL  < DENOTED  AS  El  IN  COQEI. 

‘ t#  "*  ' " - — — “ * ' — * " • 

DO  2 0 0 1=  1,  20  1 
IF(I.  EQ.201)GO  TO  41 

C CONVERT  GAUSSIAN  ORDINATES,  WCJI,  TO  THE  V A3I ARLE  OF  INTEGRA  TI 0*'  FOP 

3 - THE  FIRST -INTEGRAt  I N -GARTH  *S  EXPRESSION  F OR  ■ GN » 1 t-> I — <-5S€°~T-» — 

C PAGE  R?> . 


30  20  1 J = 1 , 32 

201  XIJ^Oi5*(»1^0IH^nh-Q«»HtMJT» 

DO  20  2 J = l, 32 

XX=X«JJ — ■—  • — 

A 

— 3--  DO-SPtfNe-INTERPOLATION-TO  Oa  THU  N~G  N-  -w  A L UE  S -A  T— G AU5STA-N~OPE)TNA  TES  . 


-S-=SPtINE<HAX-rO-»GN,S,?NOEX  ,X*I 


E1  = E1*0.5* (l.-Q(I)l *A< J)*G*AI (M,Q(I) ,X (Jl ,1, J» 

-202-CONTINUE—  - - - — 


C 

C 

c 


COMPUTE  THE  VALUE  OF  THE  SECONO  INTEGRAL  ( OENOTE D -AS-  E-2— IN— C-©9€H-j- 


■41 — t2=HK 

I F ( I . EQ.  1)  GO  TO  42 


CONVERT  GAUSSIAN  ORDINATES,  H«J),  TO  THE  VARIABLE  OF  INTEGRATION  FOP 
-THE-  -SEC  ONth  INTEGRAt— IN— G ART H*S-  EXPRESS  ION— FOR-  GN+H  fr»— LESC-0*-.  1^77  , — 
PAGE  R?) . 


DO  233  J= 1, 32 

-203-X  FJ^0.5*  < (OflF- 1 *>-Ml.-HHI) 

DO  234  J= 1, 32 

XX-* < jj  - - 


3 

C 


DO  SPLINE-INTERPOLATION  JO  OBTAIN  GN  VALUES  AT  G A'JSS  I ft N-OR-3T  NAT^fh 


- G=S»fINE<MAX,0,GN,S>IN0EX,XX) - 

E2=E?*0.5*  (l.^QCin  *A«  J»  *G*  A J I M , Q (I » , X ( J ) , I,  J) 

--  204-  CONTINUE  - * 

42  GN(I)  = AN*  (Fl«-E2) 

- SUMT=SUMTtGN<I> - - * * * - - — 

m 

C - PP I NT  -GN  ARRAY  — 

m 

PRINT  305, I,0<T» ,GN<II ,SUMT,E1,E? 

20C  CONTINUE 

120 


W, ^51' -Tc^-****’  V* 


o u n ooo  u o n nun 


PE-NORN ALIZflTION  LOOP  FOP  GN 


IFdMOPM.  EO.O)  30  TO  220 
PRINT  209, N 
00  210  1 = 1,201 
210  GN(I)=GNCI)/3UMT 


PRINT  PE-NORNAII7E0  3N  ARRAY 


PRINT  306, (I, Q«I» ,GNf I), 1=1, 201» 

306  FORMAT (S  < I5,F5.2, 2X,F10.5>> 

209  FORMAT (*1* ,5X,*N= *, 13, 5X,*REN0RMALTZE0*) 


WRITE  3 N ARPAY  ON  MASS  STORAGE 


220  WRITE  ( 1 ) N , (GN (I), 1 = 1, 201) 

- 50  CONTINUE  

°L0T- AMD  P'JNCH  COOE-  SECTION  - 

---  NPLOT  = 1 — - - - --  - 

REWIND  1 

IF(I3LOT  . EQ.0  763-  TO  -61-  - - - 

READ  17,  (PROGIOm  , 1 = 1 ,3) 

... 17  -FORMA  T-(3A10) - 

CALL  LINPLT (0,GN,  201,1 .0,-1. 0, 2. 0, 0. 0,6. 0,3.0,TITLX, 25,TITLr , l, 

1PR031 0,0, NPLOT)  — .....  

DO  50  N=  3 , NMAX 

...  — - REA0( 1 >NN, (GN(I) , 1=1 ,201)-  

CALL  LCUPVE  CQ ,GN, 20 1, 1 .0,-1. 0, 2.  0,  0.  0 ,6. 0, 3.0 ,TITLX, 25.TITLY , 1 , 
1 PR03LO, 0 , NPLOT ) — 

60  CONTINUE 

CALL-  E NO  Pi.  T - - 

61  IFII°UNCH.EQ. 0) GO  TO  71 

IF<INO°M.EQ.O) HR I TE ( 2, 62)  - 

IFdMOPM.  NE.O)  WRITE (2, 63) 

62- F4JRNVTNlX,*GNfN=2,  107  NOT  RENORMALIZED*) — 

63  FORN4T(ix,*GN(N=2,10)  RENORMALIZED*) 

. ..  REWIND  1 — - 

00  64  N=  3 , NMA  X 

WRITE  < 2,  66)  N • - 

66  F ORN A TflX,*N=*»I10) 

- ..  — READ!  1)NN,  ( GN  d ) , 1=1,201)  - 

WRITE (2,67) (GN (I) ,1=1,2011 

67~~  FORM  A T 11GF9.6) 

64  CONTINUE 

END 
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Subroutine  SETUP-Read  Gauss  quadrature  ordinates  and  weights 


SURRDUTINE  SETIPIW,  A,X,Q> 

- 0IMEV5I0*  VM32)v4  ( 32)  ,XC  32)-,Q«  201> 

c 

-■ gcno-3 RUSSI  A N-DROrY ft  TESrWi 

c 

qEAD-t-,-««H>Tl=lTl6) 

C 

C RE  A 0- j S tlSSI'A  Nt~W  H T S i tsn 

C 

READ" lv<*rt>l  I=t»16) 

1 FORMAT C4F20.0) 


t>LACE  3AUSSIAN  OPDINATES  IN  PROPER  ORDER. 


00  ? 1=1,16 
— *tir-Ntt-7-I) 

2 X CI*16I  = -WC  I) 

-00-3  T=1t32- 

3 WfI)=XfI) 


C PLACE  3AUSSIAN  HEI3HTS  IN  PROPER  OROER. 

C 

00  4 1=1, 16 

< ( I > = A (17-1) 

4 X(IU6)  = »(II 

00-5-I=1,-32 : 

5 A (I) = X ( I ) 

Jtl)  =-l. 

0Q=. 0 1 

C COMPUTE  THE  Q (=X/3)  ARRAY. 

00  5 1=2,201 

&— Q(It-Qtl-lr)  +Q-Q 

RETURN 


INPUT  DATA: 


0483076656877383162.  1444719615827964935.  2392873622521370745.  3318686022821276498 
4 2 1 35 12761 306353454 . 5063999089322293900  5877157572407623290.  66304426693021 5200_?1 
7321821 187402896804.  7944837959679424069.  8493676137325699701.  8963211557660521239 
•■'34 ^080759377396892.  9647622555875064308.  9856115115452683354.  9972638618494315635 
0965400885147278005.  0956387200792743594.  0938443990808045656.  091 1 738786957638847 
087652093004403811 1 0833119242269467552.  0781938957870703064.  0723457941088485062 

— 2227763618468.  058684093478535547 1 . 0509980592623761762.  0428358980222266806 

3629 1 302 1 4331.  0253920653092620595.  0162743947309056706.  00701S61 00094700966 _ 


()  o 


*'wn<*tiona  AJ,  Al-evaluates  J and  Inunctions 


FUNCTION  AJ(N,Q,*,T,J» 


THIS  * ? OGR  A H COMPUTES  THE  JN  FUNCTION  < G AR  TH  NT T ES , 5 SFPT, IP  7 7 ,P.R2) 
OIMENSION  Y(201,S?I 

- DATA  -Y/6432*0-./-~  - ■ 

NN=N- 1 

— AtPMA-AtrOG<  ft  ,-R)  / <Q-R*» -* 

X=(l. -Q) / (l.-R) 

q < HN  t — 


T (I, JI=Y(I,JIMX**NN)/3J 

A J=AtPHA-Y  (I,  J>-  

RETURN 


FUNCTION  A I (N,  Q,  R « I , J) 

C HIS  PROGRAM  COMPUTES  THE  IN  FUNCTION  (GA9TH  NOTES, 5 SE®T.  19  77  , ° . P?  * 
OIMEMSION  Y(201,32) 

DATA  Y/6 432*0,/ — 

NN=N - 1 

ALPMA  = AL-OG<  ll.-+«M(R-OM  - 

X = <1.  *0)/  ( 1 » *R ) 

t *J=F.OAT(NN) - 

Y (I,  J)=Y«I»  JIMX**NN»/AJ 

- - - - - A 1=  A L PHA- Y I I,  J > — 

RETURN 
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Subroutine  SPCOEF- Evaluate  spline  coefficients- 


Algorithm  and  code  written  by  L.  F.  Shampine  and  R.C.  Allen,  Numerical 
Computing,  Saunders,  Pp.-  54-57  (1973)  - • - ... 


SUBROUTINE  SPCOEF  1 1 * J , S2 * S3 * KXY , X, V, F , IM AX , JM A X) 


f 

C 


c this  subroutine  evaluates  the  spline  COEFFICIENTS  r0R  A FIVE  

~ ParnT— ^tf«IC— SPtrl-NE— ttSING-THt-SHAMPINE— RECURSIVE— frL-SORITHM  (OP.CIT.  ». 

ir  RETJRNS  THE  SPLINE  COEFFICIENTS  S2  AND  S3  CORRESPONDING  TO  THE 
C T-tTRO- AND~ FOtJRTH-PO-tNTS-s f— THE— COEFFTCIENTS--SO— AND— S4  COR^C  SrOflOING 


T3  THE  FIRST  AND  FIFTH  POINTS  ARE  ZERO*  ANO  Si  AT  THE  SECOND  POINT 
-f  S — NOT — HFEO  EOttF 


0 1 HE-NS-ION— H A * FTV-fUHA  X-»-»  FT  I M A X-,  JNA  X : 
OIMENSION  Z (5) *FC (5) 

- LfT  < <- Y~.  E-Q  vT>  i'*  2 1 


1 00  13  K=1 * 5 
KK-I^K-t 


Z ( K)  = X ( KK) 

-10-  F F K H=F  fXXrTh 
GO  TO  3 

-2-00-20  K-1 r»-5 


KK=jnr-i 
-f(K)— YTKK1 


20  FF  C <»  =F < I » XK1 
3HO^Zf  2 ) HHT  )— 


H1  = ZC  3>-Z  12) 

H2=Z<4)-*«-3) 

H3=ZI  5)-Z»4) 


2F-FFTTH/H0) 

02=5. /H2*  t IFF  14) -FP *3) )/H2-(FFC3)-FF(2) ) /HI) 
03=5v AH3*-TFFFT5T— FF-HiFV/H3-LFFT4  l-FFT  3t)/H?t- 


RH02=-.5/ tl.*H0/Hl) 

RH03=-Tv/IPH0**Hl/H?-»-2.*  I1.«-H1/H2>  ) 

RH04  = - 1. / CRH03*H2/H3»2.# I l.*H2/H3) ) 

T AU?  = -01*RH02 - * 

T AU3  = - CD2-H1/H2*  T AU2) *RH0  3 

S 3 = -«  0 3-H2/H3*TAJ3)  *PH04 

S2=RH03*S3*TAU3 

RETURN  ...  - 

END 


Function  SPLINE-  performs  spline  interpolation- 

Algorithm  and  code  written  by  L.  F.  Shampine  and  R.  C.  Allen,  Numerical 
Computing  . Saunders,  Pp.  54-57  (1973)  


FUNCTION  SPLINE('»,XN,FN,5,INDFX,X) 

_ 0I“;4SI0N  XN<N)trN(N),S<N),INDEX«M*  - - 

I  1=  INDEX  (1) 

IP«.6F.XNM1))31  TO  1-  

I2=IN0EX  (2) 

-*  - H1=XN(  12)  -XN(I1)  

SPLINE=FN(I  II  ♦ ( X - X N (II  ) ) * ( (FN  II2»-P>U  ID  > /H 1-H 1* S 1 2 > /6 . 3 ) 

. P.ETJ^N  - - 

1 I N= I N OEX ( N ) 

IF(X.LE.XNtlN) >33  TO  2 - - 

INN1=!N0FXCN-1> 

HNHl=yNIIN)-XN(INMl>  . - 

SPLINE  = FN(IN)«-  (X-XN  ( IN)  ) * ( (FN  (IN)  -FN  t I NN  1 ) ) /HN11»-HNMl*Slkl-  1)  /^.C  > 
. - - SfTJ^N  - 

2 DO  3 1=2, N 

I 1=1 NPEX  ( I)  - - 

IFtX.  LE.XNdl  ) ) 33  TO  4 

3 CONTINUE  

4 L=I-i 

_ - IL=INOEX  <L)  - — - - - — 

I LP1  = I NOE  X t L*- 1 ) 

— _ a = XN<ILPi)-X  — --  - - — - — 

«=X-XM(IL) 

HL=X'H  ILPl)-XN(IL) - 

S°LINE=A*S<L>*  ( A**2/HL-Hl)  /<3 .0«-B*S<L»l>*  < 3*  *2/HL -HU/6.3 

— — 1 A*FNtIL)-»B*rNdL°l)  »/HL  - 

PE TJ?N 


o o nu 


Subroutine  LINPLT-  Plots  results  on  linear  scale 


SUBROUTINE  LI  NPIT  CX,Y,NXY,XTOP,XDOT,YTOP,Y90T,X3GALE,YSCALE,nTLX, 

XNCHARX,TITLY,NCHARY,FROGIO,NPRNT,NPLOT)  

DIME  NS  ION  X(ll , Y( 1>  , YITLX  13) , TITLY ( 3 I , PROG  I 0 < 3 ) , < PL OT  < ?0 1 ) , V°LOT <2 

— 1C1)  ...  - - - 

DATA  XMAX, YMAX.FA STOP/ 150. ,11.*1./ 

I F<N=>LOT.  EO.  1)C  ALL  PLT  ID  3 1PR0GI0,  XMA  X , YM  AX  , F AG  TOR  » 

IF1NPL0T . EO .1) CALL  PLOT <4 .,1 . ,-3) 

XN0VI=XSCALE*4. 

IF(N°L0T.NE.1)CALL  PLOTIXMOVE, 0..-3)  

DX  = ( X TOP-XflOT  ) /X3CALE 

DYMTT0P-Y90T) /YSCALE  . - 

I C A L '_  = 1 

CALL  AXIL  <XPOT,X-TOP,  1,DX,  XSCALE  ,YSCALE,TITLX,  NCHARXr-ICMrb-) 

ICALL  = 2 

CALL  AXIL  (Y90T.YT  OP  t2»0Y,XE3  ALE,  YSC  ALE  » TITLY,  NC4ARX,-ICALL) 

RETJRM 


ENTRf  LC'JPVE- 


K RV  = < P.V*- 1 
DO  1 N=1 , NX Y 

-YY  = Y«N) — 

XX  = X » Ml 

IFCYY.GT.YTO3) GO  TO  1—  - - 

IF(TT .LT.YBOT1GO  TO • 1 

— -IFIXX  . GT  . X T OP ) - G 0 TO  1—  

IFIXX.LT.X90T)  GO  TO  1 

KL=<t+i — -----  

X PLOT <KL>  =XX 

Y PLOT  (KL>=YY --  

1 CONTINUE 

IFCNPT.E3.0)RET'JRN 

PRINT — td,  NPLOT,<R)F - 

10  FORMAT <//lX,*PL0T  NO. • , I 3 ,2X, *CURVE  NO.*, 13) 

IF1MPPNT .EO.O)— GO  TO  2 --  - - 

PRINT  11,  CXPLOT (<L) , YP  LOT ( XL ) ,KL  = 1,M«>T) 

11  F OpM  A T I1X  ,10E  11.5)- 

2 CALL  LINE IXPLOT.TPLOT.NPT, 1,0,0, 0. , OX, 0. ,OY,0 . 03) 
RET’JTN 

END 


Subroutine  AXIL-  Draws  and  labels  linear  axes  (this  routine  has  been 
superceded  by  an  AFGL  supplied  subroutine  called  AXISL  which  exists 
in  the  AFGL  plotting  utility  package.) 


SUBROUTINE  AxrL<<l,X2,LXY,0,XSCALE,YSCALE,TEXT,NT, ICALL) 

— OIMEN^ION  TEXT < 3) ,F (41 > ,NE(41) , YC< 41)  — 

OATS  TEX1/3HX10/ 

- • - ---  --  PATS  TEX2/4HX10-/  - - - ■ 

DATA  E/2H2C ,2H19, 2H15, 2H17, 2H16 , 2H15 , 2H14, 2H13,2H 12, 2H11 ,2H1 3, 1H9, 

•-  - — - X1H8,1H7,1H6,1H5,1H4,1H3,  1H2 , 1 HI  , 1 HO  , 1 H 1 , 1H  2 , 1 H 3 , 1 H4 , 1H5-,  

Y 1 HB , 1 H9,  2H1C,2H11,2H12,2H13,  2H14, 2H15 , 2H  lb,  2H1  7,  2H  Id  , 2H19,  2H2C/ 

OATA ~ME/11*2, 19*1 , 11*2/  — 

OAT A YC/2C.  ,19. ,19 . ,17. ,16. ,15. ,14. ,13. ,12. ,11.  ,10. ,9. ,3. ,7., A . ,5. 
-X,4.-,T.,2.,1.,0.,1.,2.,3.  ,4.,6..6.,7.,d.,9.,10.,  1 1_~ , 1 2 . -,  tl . 1 4 v ,19. 

Y ,1s., 17. ,13., 13. ,2G./ 

if(i:all.  eq.dm=-3 

_ GO  TO—  (IOC,  200  ) ,i.XY  - ■ — 

C X AXIS 

- 100  XtH=Xl/0 * — - — 

XH=XSCALE+YL4 

--  — CALL  PLOT (0.,0.,1> - - • - - 

CALL  PLOT (XLW, 0. , 3) 

CALL  PLOT  CXH,  0.  ,21  - - - 

CALL  PLOT (XLW, 0. , 3) 

EPS=l.E-6  — 

XOIF=  A9S  ( TX2-X1)  * ( 1.  *EPS)  ) 

— --  IL=IrIX(ALOGl0(X0IF)  ) --  - --  

IFITL.LT. 0)  IL=IL-1 

f CTR  = 10i  0**-Itr"  - - 

XTLA3=X2/FCTR 

X 9tA  9=X1  / FC  TR — 

ITE5T=IFIX(XTLA9-X9LA9*EPS) 

*00=8.  l*FLOATf  FTE3TT-- - - - - 

01=(XTLAB-X9LAB)/XSCALE 

ODO  = OtV/Ot-  — --  ---  

LMAX=1*IFIX  ((XTLA3-XBLAR  + EPS) /OO) 

xl-=xlw-ddd - 

XLL  = < PLAB-00 

— - 00-10  2 L = 1,L1AX  - — 

XL  = XL  *000 

- * XLL— «L1«-00  

CALL  SYMBOL (X L , 0 • , 0.1, 13, 0. 0,-1) 

— X trt=Y  t—  .is -—  --  — 

CALL  NUMBER (XL1,-.15,Q.08,XLL,0.,1) 

- 10?  CONTINUE" 

CALL  PLOT (0 .95,-3 .4, 3) 

—  XAY=- LOAT  (NT)*0.15 

XSTA7T=XLW*0.5* (XH-XLW-XAT) 

— C ALL  SYMBOL (XSTART,-0i5, 0.15,  TEXT,  fr.-,  NT) 

FA  = P'.OAT  (IABS  (IL)  ) 

-  ...  - 00  336  11  = 1,21" - 

IF(A1S(FA-YC<IT) I .LE.EPSIGO  TO  307 

306  CONTINUE  - " " 

307  S = E(I  I ) 

J=NE<II>  - 

XAT=j.l5*F. 

XSTA?T=XLW*9.5*(X  H— XL  W— X AT)  

T p ( I . GE . C ) GO  TO  3 r » 

TEX  »=  T fX2 
N E X = 4 
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GO  TO  309 

300- TEX3=TFX1  - 

NEX=3 

309  CULL  SYMBOL  <XSTART, -.75, . 15, TEX3, 0 .,  NEX» 
XSTART=XSTAPT*0.  15*  FLOAT  INEX) 

CALL  SYMBOL (XSTART, -.65, . 1,S, 0.,  J» 

RET  JR  N 

- - C — Y AXIS - - — 

2 00  CALL  PLOT (XLW, 0.,  M> 

CALL  DLOT (XLW,YSCALE,2>  - 
CALL  PLOT<0., C.,3) 

RETJRN 

ENO 


Program  ANISO 


Program  ANISO  computes  the  reduced  source  functions  G^((j,q)  for 
anisotropic  scattering  of  electrons  from  a forward-directed  point  source 
in  an  infinite  medium.  A varsion  of  this  program  also  exists  for  the 
point  isotropic  source  case.  While  this  latter  version  is  not  listed  here, 
the  modifications  required  to  produce  this  version  are  minor,  and  a 
listing  is  available  from  the  author. 

The  routines  are 

1)  ANISO  - Main  program,  performs  Gaussian  quadrature. 

2)  Subroutine  SETUP  - Fills  Gauss  quadrature  ordinate  and  weight  arrays, 

reads  in  previous  generation  G array,  computes 

q- values  at  which  G , is  to  be  evaluated. 
n+1 

3)  Function  PROB  - Computes  scattering  probability  density. 

4)  Function  SURFTRP  - Surface  interpolation  routine. 

5)  Subroutine  PHIPSI  - Computes  Hermite  polynomials  for  use  by  SURFTRP. 

6)  Subroutine  DERIV  - Computes  partial  derivations  for  use  by  SURFTRP. 

7)  Subroutine  SPCOFF  - Computes  spline  interpolation  coefficients. 
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nun  u 


Program  ANISO'  - Gaussian  quadrature  integration  of  Gn  functions  for 
anisotropic  scattering 


p ?0j ’4  M aNISn<INoUT,0UTPUT.TAPEl,TAPE2) 

DIMENSION  Q<201).3N(201,201>,W<32),XT<32>,XR<32),  A <32  ) ,GMl-<  32.  32J  i 

1GN2<  3 2,32)  , VAl  ( 32)  , PP*3R<  3 2)  ,RMT  <32,32) 

0 I “E  M S I ON  GMEWI201) ,SUM<201)  - — 

°EAL  MU (201) 

DATA  E°S/l.E-5/  — . - 

READ  1,I1,I2,IAN3,IPRNT,N,ETA 

1 FORMA  T<5I5,F10.5) — 

P°NT  = P 00  NOT  PRINT  OUT  ANGULAR  SOURCE  DISTRIBUTION 

1 3 R N T =1-  PRINT  OUT  ANGULAR  SOURCE  DISTRIBUTION 

IANG  =0  COMPUTE  G3  < Q ) ONLY 

I A NG  = 1 COMPUTE  BOTH  G3<0)  AND  G3  <1, MU)  

CALL  SETUP(W,A,v/AL,Q,MU,GN,KMAX,N) 

REWIND  2 

00530  1 = 11,12  - 

NN=N- 1 

A N = r‘_  OAT  IN)  — - - ~ - - — 

DO  10  J= 1 , 32 

XR<  J)  =0.5M-(l.OHI  KM.-QM)»»H(J)) 

XT<J)=0.5*<(Q<I)-1.>*C1.*Q(I))*W(J)> 

10  CONTINUE  

DO  15  JI  N=  1 , 3 2 

R = XR( JIN) 

IFIR.GT.Q (201) )R=a<201)-EPS 

DO  1-5 — JOUT  = 1,32 

T = XT  < JOUT) 

IFtr.GT.  Q<201>>  T=<M2B1>-EPS 

GN1<  JOUT,  JIN)=SURFTRP<Q,Q  ,G.N,  201, 201,  T,R) 

SN2  < J I Nf-J-OU-T)-=SlJR  FT-RPfQ,  0,GN  ,201  > 201-»  R , T->  — 

RMT<  JIN,  JOUT)  = <R-T)**N 

15  CONTINUE 

IFCIANG.EQ.  0)  GO  TO  250 

- — C MU-LOOP 

GNQ  = 0 . 

DO— 50— K=  1 , K M A X — 

AMU=MU  IK) 

DO-  V-5 — JI  N~  1, 32 

R=XR< JIN) 

PRBR<  JIN)-PROB<R,  AMUjETA ) *<R-QII > ) **NN 

59  CONTINUE 

C OUTE-R— INTE6RAL— LOOP 

A NS=  0 • 

DO  100  JOUT  = l , 32 

VAL  <JOUT)=0.0 

1- X rf JOOT ) 

PRBT  = PR08  <T , AMU, ETA) 

HV-n  »*NN 

C INNER  INTEGRAL  LOOP 

OO-ll  0 JI  N=  h 32 

R=XR< JIN) 

VAL<  JOUT) -VAtHJOJ  TF+0t5*(1.-Q(I)  )*A<  JIN)* 

1 CGN1 < JOUT ,JIN) *®RBT*  QQ+-GN  2 (JIN, JOUT ) * PR9 R < J IN ) )/RMT< JIN,  JOUT) 

110~  CONTI  NUE 

A NS  = A MS* 0.5* AN* < 1 . ♦ Q < I ) ) • A < JOUT ) • V AL < JOUT) 

100  CONTINUE  ~ ...  — 

GNQ=GNO*  AMS*.  01  <■ 


J 
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I F ( < . E0.1.0R.K.E3.KMAX)  GN3=GNQ- ANS* . 005 

SUH<<>-=GNO ' ~ 

GNEW { K ) = A NS 

5T-CONriNUE  — - — - - 

IFd^NT.FQ.n^INT  20  0 , ( MU  ( K ) , GNEW  ( K > ,SU'1(K)  , K=1,KMAX) 

IF(IPRNT.EQ.O)PRINT  205,1, SUM(KMAX)~  - 

205  FOR>iaT<lX,*I=*,I5,lX,*RESUlT  OF  ANGULAR  IN TEGR ATI ON=* , El  2 . 5) 

-20 1' FORI 4 T<1X,  E12t5> — 

250  A NS  = 0 • 

00  150-J0UT=1,32 - - - 

VALC JOUT) =0. 

t=xt<jout» 

Q3=<3  C I ) - T 1 NN 

00- t5  0 JIN-1,  32 - - — 

R=XR< JIN) 

QR=(?-Q<I)  )**NN- - - 

VAL  ( J OUT)  = VAL(J3JT)«-0.5Ml.-Q(I)>*afJIN>MGNl(JOJT,JIN)*OQ* 

1GN2<  JIt+,  JOUTh*OR>VRMTt  Jltf,-J9UT»  — 

160  CONTINUE 

ANS  = 4NS*0.5*ANM1  .♦Q(I)  >*A<  JOUT  ) *VAb( JOUT) 

150  CONTINUE 

F AC-0  rOl 

IFd.EQ.  1)FAC  = 0.005 

IPfl-.  EO.-20t)FAC  = 0. 0 0 495 

TOT=TOT*ANS*F AC 

— — print  go  2,  i,o  »n,  * ns,  tot — 

WRITE  (2)  (MU  TO  .GNEWiK)  ,SUM(K>  ,K=1,KMAX>,  ANS 
— ?— FO'*H*'F-<lX-,-*-I=*rf5 , 1X,*Q(  I ) E12v5rl  X ,-*GNT  O)— * « E12  r5  , *-INf  E 6^41-=* 

112.5) 

-200-FORNA  M*rMX-,F5-j-2T2ei2?5)  ) 

500  CONTINUE 

STOP — — 

END 


FUNCTION  PROS ( A , 3 , E T A) 

RROO^  ETAMb»«-3.5*EIA)Ml.-A*B+ET  A )V  I ETA**2-*- 2.  *ETV*(lr*- 

I (A-3) **2) **1.5 

RE  TORN 

END 


■ 


Subroutine  SETUP-Fills  Gaussian  quadrature  ordinate  and  weight  arrays, 
reads  in  previous  generation  array,  and  computes  the  q array 


SU923UTINE  SETUPIW, A,X,Q ,MU,GN,KMAX,N> 
DIMENSION  W(32I,A  (32)  , XI  32)  ,01201*  ,GN<20 
DIMENSION  All  2011  ,3(201),R(16),Sfl6) 

PEAL  *1U<201»-  • 

DATA  R/  .0493076656877383162, 

1 .2392873622521370745, 

2 .4213512761306353454, 

3 *5377157572407623290, r 

4 .7321821187402896804, 

5 — .8493676137325699701, . 

5 .9349030759377396892, 

- 7 - .9856115115452683354,  - -. 

DATA  S/  .0965400885147278005, 

1._  .0939443990808045656, 

2 .0376520930044038111, 

3 .0781938957870703064,  - — v 

4 . 0558 222227 763618468, 

5 .0509980592623761762,  — . 

6 .0342738629130214331, 

— 7 -.  016274394  7 30 9056706 f . 

DO  1 1=1,16 

— 

a ( ii  =sm 

l-CONTTNUE - 

REMIND  1 

IF«iti-OF*2-)GO-TO-irO 

00  100  1=1,201 

REimilfAlf  jr-r6NtIi-J+rfr<J)-iJ=l,-2(ny,-AQC  - 

100  CONTINUE 

GO -TO- 20 

10  DO  110  J= 1 , 20 1 

REAOM-MAKIh*GNI^T-J»,9m  ,1  = 1, 201-HABC- 

110  CONTINUE 

— 20-CONTINUE — 

< MAX  = 2 01 

40(1 1=-1 . 

00  51  1 = 2 , KMA X 

HUt  I I =MtH  I-tT+  rOl 

51  CONTINUE 


1,  2011- 


1444^19615827964935, 
3318  69  60  228  2127649-5?- 
5068999039322293900, 
66  304^2559  302152059,- 
794483 79 59679424369, 
896  3 2115576605217239?- 
964762255587506430  3, 
99  726-3  e9i  6 49 451565  5/- 
095633  72007927435Q4, 
09117  3 87869576  3064-7, 
0833119242269467552, 
07 2 34 57341C 8-9 495  0 6 2?- 
0536840934785355471, 
042835895 0L222260  >30G?~ 
025392065309  2620  595, 
00  7 0t851-OtH)94700566/- 


, . I ' 
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Function  SURFTRP-Surface  interpolation  routine  

FUNCTION  SURETFP(X,Y,E,IMAX,JMAX,X0,YP) 

0 IMF  NS  ION  X(IMftXI , V(JMAX) ,F( I MAX, JMAX) 

r* 

C FJNCTHN  SUPFTRP  IS  A SUPFACE  INTERPOLATION  PROGRAM, GIVEN  ft 

C FJNCTIDN  F OF  TWO  VARIABLES  X AND  V,  THE  PROGRAM  RETURNS  AN 

r INTERP3L-ATE0  VALUE,  SURFTRP,  OF  THE -FUNCTION  FIX,  YT — AT — T-HE-TV-SF-3 

C SPECIFIED  POINT  (Xp,YP).  IN  ORDER  TO  USE  TFIS  CUNCT ION  PROGPAM, 

-3  THE  CAL-LING-PROGRAM-MUST-PROVIOE  -STORAGE  VIA  A- 0 IMENS  IDN -ST-A  TFH^TVY 

Z FDR  THE  ARRAYS  X,Y  AND  F(X,Y).  AN  EXAMPLE  MIGHT  BE 

- C—  - DIMENSION  X<100),Y<P5<HrF<100, 250) 

- - -C  - AN  -EXAMPLE-OF — A -CAtrL — T-0  -SURFT-RP-MIGHT-  BE  — 

C FN  = SURFTRP!  X»f,F,IMAX,JHAX,XP,YP)  , 

- Z WTERE-X  , — Y-  ANO— E —ORE— DEFINED— ABO  VF-, 

Z I MAX  IS  THE  LENGTH  OF  THE  ARRAY  X, 

... _3  JH  AX — I5-T-HE--L-ENGTH— OF— THE — ARRA  Y-If ANO 

C SURFTRP  IS  HE  INTERPOLATED  VALUE  OF  F(X,Y)  AT  THE  POINT 

_ r ( X-P,-Y-P)  . 

C VALUES  FOR  THE  PARAMETERS  IMAX  AND  JMAX  MUST  BE  SPECIFIED  IN  T Hr 

C - - CALLING  -PROGRAM. 

C 

I FL AG  = 0 

5 URCT  PP=0 . 


id 


TME  INTERPOLATION  WEIGHTING  FUNCTIONS  ARE  CUBIC  HERMITE  POLYNOMIALS, 

- -PNI-  AND-PSI-t  -THE-AIGORITHM  FOR  EVALUATING  -ANO-OSI-NG-THE-SE-IS  -GIVEN 

IN  P.N.  PRENTER,  ’SPLINES  AND  VARIATIONAL  METHODS’,  WILEY  INTER^CI- 

ENCE  ,--aP.-~53— 57  , — 1-3TH-1-975T-. -< THERE — IS  -A— GRUCI A-L — M-T53Ri  NT  —ON  -PAGE  03 

OF  THIS  BOOK.  EONU)  MUST  BE  MULTIPLIED  BY  (-1).  THIS  ERROR  TS 

-PROPAGATED  THROUGHOUT -THE  -PAGES  CITEO  ABOVE. — ) — THE — PA-RTIAE 

DERIVATIVES  OF  F(X,Y»  WERE  EVALUATED  USING  FIVE  POINT  NATURAL 

- S3LINES  ACCORDI NG~  T9 -~T HE— ALGORI-THM  -G IVE-N -I N -L *F. — SHA-MPI NE  AND  °.C. 

ALLEN,  ’NUMERICAL  COMPUTING’,  SAUNDERS,  PP . 54-57(19/3).  THE  MIXEO 
SECOND  -PARTIAL  -I  S -E  V ALTJA  TE  O BY  -CENTRAL-0  IF  FERE  NCES. 

- BRACKET-  -THE-  T.OC  ATI9  N OF-THE  POINT  - XP  I N THE-  X - ARRAY  fP— IS^THE  INDEX 

CDRRES “ONDI NG  TO  TME  FIRST  POINT  IN  THE  X ARRAY  THAT  IS  LARGER  THAN 
XP.  - EVALUATE  THE  TERMITE  POLYNOMIALS  PHI  ANO  PSI  --OR-XPs — 

CALL  PHIPSI  (X,  IMAX,  XP,  1,  PHI  XI  ,PSIX1,  PHI  X 2,  °S  I X 2, 1 P .IF-L-AGT 

IF(IrLAG.E0.1)PETUPN 


BRACKET  THE  LOCATION  OF  THE  POINT  YP  TN  THE  Y ARRAY.  JP  IS  THE  INDEX 

CORRESPONDING  TO  T TE  FIRST -POINT- IN  THE  Y ARRAY  THAT-  I~S— LA-R-GTrR  — *-HAN 

YP.  EVALUATE  THE  TERMITE  POLYNOMIALS  PHI  ANO  PSI  EQP  YP. 


CALL  PHIPSI (Y, JMAX, YP, ?, PHIY1.PS I Yl, PHIY2.PS I Y 2, JP, I EL AG) 
— IEIIP.  PQ.l.OR. JP.EQ. l.OR. IFLAG.EO.l) RFTUPN  


EVALUATE  THE  PARTIAL  DERIVATIVES  AT  THE  FOUR  POTNTS  SURROUNDING  THE 
- - POINT  * ( XP , YP ) . — - — 


II  = IP-1 
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JJ=J>-1 

- E V A LU  A T E ' THF  PARTIAL  DERIVATIVES  A T CXCTP!,Y(J  P>>  

CALL  OFRIVtOFOXU  .OFnVll.OFXYll, IP.JP, X, Y,c, I MAX, JMAXL 

EV  ALUA  T E~  THE  PART  IAL"  OERIV  ATI  VES  AT  (X  ( IP-1)  , Y<  JP> ) 

C ALt  DERIV(OcOX21 , 0F0Y21, 0CXY21»II»JP»X,Y,C,  IMAX,  JMAXI 

-EVALUATE  THE- PARTIAL"  DERIVATIVES  AT  < X ( I P- H , Y C JP-1 > ♦ 

CALL— OERI  V<nFOX22,OFOY  22,  OFXY  22,11,  J J < X , Y , F , I MAX,  cfMA  X > 

"EVALUATE-THE  PA  RT I A L— DERIVATIVE'S — AT"  < X ( IP!  *,  Y ( J°- t > ) 

- C ALL  OERIV<flEOX12,OEOYl?vOPXYl2,IP,  JJ,X,  Y,  Ft  IMAXt  JtlAXI 


COMPUTE  INTERPOLATED  VALUE  FCXP,YP)  USING  PRENTER  A LGORITHM I OP.C IT . > 


SURFTPP=FCIP, JP>  *PHIX1*PHIY1*F(IP-1,JP!*FHIX2*PHIY1«- 

t E(IP-1,JP-1»*PHIX2*PHIY2*FI IP, JP-1!  ♦PHIXlJ‘PMIY2-e 

X nF0Xll*PSIXl»PHIYlF0FDX21»PSIX2*PHI  Y1  «• 

< OFOX2?*PSIX2*-PHIY2-»“OFDX1  2*-PSTXl*PHI  Y2< 

X OFOY  11*PHIX1*PSIVH-0FDY21*PHIX2*PSIY1* 

X- OFDY-22*PHlX>*U,SIY2«-9FOri2*U>HIXt*-PSIY2* 

X 0FXY11*PSIX1*PSIY1*0FXY21*PSIX2*PSI Yl* 

X 0FXY22*PSIX2*PSIY2*0FXYl-2*PSTXlr*PSIY2 


RETURN- 

ENO 


SUBROUTINE  PHIPSI  C Z , KM AX , Zp, K XY , »H1 , PS  1 , PH2 , PS 2, I P , IFL AG » 

THIS  SUBROUTINE  COMPUTES  THE  HERMITE  POLYNOMIALS  ACCORDING  TO  THE 
PRENTER— ALGO»*THME3P.€IYrP».53-57»- 


DIMENSION  Z(KMAX) 

« PH1=°S1=PH2=PS2=0. 

00— JrOe-^lvKMAX 

IFCZP.LT. Zt I) >G0  TO  104 

...  l 00— GONT I NUE 

IFLAS=1 

103IF4<XY.EQ»1!PRINT  102, ZP 

IFC<XY.EQ.2|9RIvr  105, ZP 

RETURN 

102  FORMA  T (IX  ,*  X VALUE  *,  E12.5, 1X,*0UT  OF  RANGE*! 

Jt05-FORHA-T-UXT**-VAL-JE-*,-  E-12-c5c-*Xt*0UT-0F-  RANGE*! 

104  IP=r 

JFCI  *•  EQr  1-! — GO— F-0— 1 03 

IP1=IP-1 

--  - A*ZMP»-ZTIP1»-  - 

Tl  = f (ZP-Z«IPin/A!»*2 

°H1  = T1/A*  (2.*  CZCIP  - ! —Z0!  ♦ A)-  •-  - - 

PSl=ri*(ZP-7(TP|| 

T1  = ((Z(IP)-ZP)/A»  • • 2 
PH2=-T1/A*  C2.*(2(  IPD-ZP)  -A! 

PS2=ri*(ZP-Z(IPl! » 


RETURN 

END  --  - 
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SUBROUTINE  DERI VC  OF  OX  , OF  OY,  OF  X Y , I , J t X , Y , F,  I HA  X , J 1 A X ) 


2 THIS  SJBOOUTINE  COMPUTES  THE  PARTIAL  DERIVATIVES  F AT  EACH  0<-' 

2 THE  F3JP  POINTS  SURROUNDING  (XP.YP)  USING  THE  SHAHPINE-AL"GO'">  ITH^-COP-; 

C CIT.  P=».  54-57)  USING  FIVE  POINT  NATURAL  SPLINES.  THE  POINT 

- — -2 (X  ( I ) t f ( JH~  IS-  TAKEN-  AS-THE  - CENTRAL-  CTHIP.O  ) POINT. 

C 

OIMENSION-XTINAXh-t  YFJMAX)  ,F( IHAX* JMAX > 

IP1=I*1 

IH1=I-1 - - — 

IH2=I-2 

JM1=J-1 

JM2-J-2 

IFCI.GT.2)  GO  TO  10 

2 X < I > 13  WITHIN  TWO  POINTS  OF  THE  BEGINNING  OF  THE  OUPVE . SLOPE  IS 

C TAKEN— AS-THAT-OF— A— 5-T-RAIGHT--LFNE-1  PASSING  T HROUGH— X t-f-) — A NO  X(  Hlh 

«% 

' — - OFOX- (F« Pt,J)-FC  I.  JHVCX  (IPl)-XflM 

GO  TO  100 

tO— I F ItsLTrttHA X - 2H  GO  TO -20 

2 XCI)— I3-WI  T-HI N-  TWO— POI NT-S-OF— THE-  ENO  - OF-  THE- CURVE. — SbO  PC  IS  TAKrH  AS — 

2 THAT  3-  A STRAIGHT  LINE  PASSING  THPOUGH  X(I-l)  AND  XCI). 


OFOX= (FCI, J) -FCI Ml, J>) /(X(I)-X(IHll) 

GO— TO  -IDO 

20  HI=X( IP1) -X (I  I 

C CALL  S’COFF  TO  OBTAIN  THE  SPLINE  COEFFICIENTS  SM  AT  XCI)  A NO  SP  AT 

c 

J 

CALt— SPeOFF^fM2vJ,SM,SP,  1,X,Y,F-,  IMAX , JMAX) 

C EYALUAT  E -PART  IAL — DERIVATIVE  WITH  RESPECT  TO  X-  AT--X  f-I) — IFSPfG 

C SHA  HPI ME  ALGORITHM  COP. CIT.) 


OFDX  = 0.5/HIM-SH*  CX (IPl)-X(I) ) * * 2 

1 ♦ 2s-*-C  F (-1 P trJ')  -FCI-,  JH)»HI/6.*(  SM-53) 

100  IFCJ.GT.2)  GO  TO  110 

C TCJ)  IS  WITHIN  TWO  POINTS  OF  THE  BEGINNING  OF  THE  3UP.VE  • SLOPE  IS 
c TAKEN- A~S~ T HAT-OF— A ~ S T RA-IGHT-t-INE-  PASSING— THRO  UGH- f-fJJ — Atffl-  VC  J»l)  . 

Q 

OFDr-*F(T,JPlT-FCI-rJ>>/(V{JPl>-Y<J)) 

GO  TO  200 

tlO — IPEJ-.tTvf-JMAX— 2))--G-0— TO-  t20 

C 

2 YCJ)-  IS— WITHItY-TWO-POINTS  OF-THE  ENO  OF^  THE  CURVED- S±~OPE — IS  T AKFN 

2 THAT  Or  A STRAIGHT  LINE  PASSING  THROUGH  YCJ-l)  AND  YCJ). 

OFOY  = (FCI , J)-F(I, JMl) > /(YCJI-Y (JN1II 

~ ..  G0  2oO  - - - - - *-  

120  HI  = Y<  Jpl)-YCJ) 

2 CALL  S=»COFF  TO  OBTAIN  THE  SPLINE  COEFFICIENTS  SM  AT  YCJ)  AND  Sa  AT 
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CALL  SPCOFMI,  JM?,SN,SP,  Z,X,Y,FtIMAX,  JHAX) 


EVALUATF  PARTIAL  DERIVATIVE  WITH  RESPECT  TO  r AT  Y(JI  USING 
--  SHAMPIME-  ALGORITHM-  (OP.  CIT.  I 

0 F Q Y = 0.5/HIM— SM*  <-Y f-JP  1 1 — Y C J )->-*  * 2 

1 *Z.*  CFII, JP1I -FCI, J>) >♦81/6.*  CSM-SPI 

ZOtF  -IFII.  EQ.-IMAX)-IPi  = I — 

IFt J. EQ. JMAXI JP1= J 

- IFU.  EO.  1>  IM1  = I- 

IFCJ.EQ.l)  JH1=J 


EVALUATF  MIXED  PARTIAL  DERIVATIVE  USING  CENTRAL  DIFFERENCES. 


OFXY  = <FIIP1,JP1)-F< IP1, JM1) ♦F(IM1, JM1I-FCIM1,  JP1I  I / 

K < (X(IPl)-X(im>  I *(Y(JPi)-Y(JMlll  l 

RETJTN 

END 


Subroutine  SPCOFF  is  identical  to  Subroutine  SPCOEF  used  with  program 
GAUSQN  (see  page  124). 
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Program  GNLEG 


Program  GNLEG  computes  the  Legendre  coefficients  of  the  reduced 
source  functions  G^p^q)  for  anisotropic  scattering  of  electrons  from  a 
forward- directed  point  source  in  an  infinite  medium.  A version  of  this 
program  also  exists  for  the  point  isotropic  source  case.  The  listing  for 
the  former  will  be  given  here. 

The  routines  are 

1)  ANISO  - Main  program  - performs  Gaussian  quadrature  integration 

of  Legendre  coefficients  of  G . 

n 

2)  Subroutine  DGEN  - Computes  Legendre  coefficients  of  scattering  kernel. 

3)  Subroutine  LEP  - Compute  Legendre  polynomials  using  recursion  formula. 

4)  Subroutine  G2GEN  - Computes  G^fp.q)  function. 

5)  Subroutine  SPCOEF  - Computes  spline  interpolation  coefficients. 

6)  Subroutine  NODE  - Computes  location  of  Chebyshev  modes. 

7)  Subroutine  ECHEB  - Evaluates  Legendre  coefficients  of  G from 

n 

Chebyshev  series  representation. 

8)  Subroutine  CHEBY  - Evaluates  Chebyshev  series  coefficients  for 

function  representation. 

9)  Subroutine  GRULE  - Evaluates  Gaussian  quadrature  weights  and 

ordinates. 
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Program  GNLEG-  Gaussian  quadrature  integration  of  Legendre  coefficients 
of  G functions 


PROS* AM  GNLEG ( INPUT , OUTPU T , T APE  1 . T APE 2 » 


THIS  PROG»AM  COMPUTES  THE  COEFFICIENTS,  GNL ( Q ) , DF  THE  LEGENO°E 

EXPANSION  OF  THE  SOURCE  FUNCTION,  GN(MU,')),  OF  THE  N-TTMES 

SCATTERED  ELECTRONS.  THE  CALCULATION,  AS  FORMULATED  OY  GARTH, 

CONSISTS  OF  AN  INTEGPAL  EQUATION  FOR  THE  LEGE  NORE- COF  F-PIC  f-pN-T-S 

GNL  ( D ) FOR  SCATTERING  OROER  N IN  TERMS  OF  THE  CORRESPONDING 

LEGENORP  COEFFICIENTS' GNM 1L ( Q ) ~ FOR  SCATT EPINO-ORQPR-N-1. — ALL 

OF  THE  NUMERICAL  INTEGRATIONS  ARE  PERFORMED  USING  16  POINT 
GAUSSIAN  OUAO°AT  • - - - 

— -DIMENSION  G NM 1(201) »GNM1L<20*201>, PS UBL(  ?0  > , I NOEtf  2 Ot)  ,S-f-2PlrHi 

1SGL(20,201),OORD1(32),QOR02(32) ,EMU1(32> ,EMU2(32) ,AI (20,20) , 

2AJT26 ,20) , SUM1 (20  ) ,SUM2(2  0) , G ANS ( 20 ) , Q < 20 1 > ,0(20) 

DIMENSION  GNL (20, 20 1) ,QT (201) ,NPT(2) , UPEOGE (3 ) 

DIMENSION  CNOOE(41>,ARR(41) ,CHC0F(41)  - 

REAL  TN( 32,20,20) , JN ( 3 2 , 2 0 , 20 ) , MU ( 32) ,WGT(32) 

EQOf ALENCE(EMUIM)  ,QORD2fl))»  (EMU?(1)  ,Q0R01(1)F 

0ATA  0,GNM1L, GNL '20*0. ,40  20*0. , 40 20*0./ 

READ -t,ETA,LMAX,NMIN,NHAX>NORD, NCHSHFT , NCHEOyNOSMI FT 

PRINT  91, ET A, LMAX,NMIN,NMAX,NORD, NCHSHFT ,NCHE B ,NJSHI FT 

— 91-FORHAT(l»,*€TA  = »vE12y»VlXf*LHAX=*,  I10,  IX  ,»NHIN=«TllrfrTl*«  »NHAX=«-,~fH; 

10, IX, *N0R0=*, I10/1X,*NCHSHFT=*,I10,1X, *NCHEB=*,I10,1X,*NQSHIFT=* , 

1 FORMAT (F10. 0, 715) 


ETA  = RUTHERFORD  SCREENING  PARAMETEP 

tMA*-=- MAXIMUM  OROER-H— 1-OP  tEGENORE-  EXPANSIONS 

NMAX  = MAXIMUM  ORDER  OF  SCATTERING  FOR  WHICH  THE  GNL  ARE  TO  OF 

COMPUTEO 

NMIN=STARTING  ORDER  OF  SCATTERING  FOR  WHICH  the  GN  FUNCTIONS  are 

SUPPtTEO — - 

NORO  = ORDER  OF  GAUSSIAN  QUADRATURES 

— NCHSHFT  — = OROER-OF -SCATTERING -AT  WHICH  CHES  YSHEV— POL Y NON I-A-fc 

APPROXIMATION  SHIFHTS  FROM  41  TO  21  NODES 

-NCHE3  = OROER- -OP  SCATTERING  AT  WHICH  C ALCUL  A T I ON— IS — SHIf^+E-O— F-°OH 

LEGENDRE  APPROXIMATION  ALONE  TO  LEGENDRE  PLUS  CHEBYSHFV 

APPROXIMATIONS 

NQSMIFT  = ORDER  DF  SCATTERING  AT  WHICH  Q ARRAY  IS  SHIFTED  Q0W»’ 
FROH-201-POTNTS-  PO-51-POINTS 

PEWfN0-± 

REWIND  2 


SUBROUTINE  GRULE  COMPUTES  THE  GAUSSIAN  ORDINATES  AND  WEIGHTS 


Nl=NDRO*l 

N-J^NDR-C/2 

CALL  GRULE(NORD,NU,WGT) 

OO  tt  JM.NJ 

EMU1 ( J )=-MU (J) 

EMUK  N1-J)=MJ(J) — 

W GT ( N 1-J) =WGT ( J) 

- 11  CONTINUE - 

DO  1?  J=1,N0R9 
MU ( J ) =EMU1( J) 

12  CONTINUE 

- - - - - — — 138- 


r 

t* 


1 


70  3T«1) =-i . 0 

MP1=nAX*1  - H 

QTM>1)  = 1.0 

00  10G0  H=2,*AX  — 1 

ir(N.LT.NCHE3l 0°=3°*00 

IF  <N.  GE.  NCHE1  )QP=CN0DE  (II  H 

QT (II =QP 

FC1=  3 . 5*  1 1.0°)  - 1 

FCZ=0 . 5* 1 1 .-OP) 

select  THE  q values  1 

00  1 Q 0 J= 1 » NORO 

THIS  IS  FOR  THE  FIRST  MAIN  INTEGRAL  . H 

0 ORO  l (J)  =FC1»FC2*HU<J) 

THIS  IS  FO®  THE  SECOND  MAIN  INTEGRAL  — H 

7 ORO  ? (J)=-FC?»FC1*HUCJ) 

100  CONTINUE  1 

00  150  J=1,N0RQ 

- 00  111  L1  = 1,LHAX  H 

00  111  L?=1,LMAX 


111  IN(J,L1,L2)=JN(J,L1,L2>=C.C 
00  112  K= 1 « NORD 

CS=EHU1<K ) 

CALL  LEP(PSUOL.CS,LMi) 

ST0R  = < t<QO-CSV/<-30Rai<  J) -CS)  ) *•  <N-1>  ) / <OP-CS) H 

00  112  L1=1,LMAX 

- 00  112  t2  = l,LMAX ! 

IN(JtLl,L2)=IN(J,Ll,L2)*FCl*HGTCK)*0(Ll) *PSUOL  tL 1 ) * PSU1L C L 2 ) • STO » 

^12  CONTINUE  — — - - j 

00  115  K= 1 1 NORD 

■ — ■ - CS=ENU2TKF - - — 

CALL  LEP(PSUBL,CS,LM1) 

STOR= ( T ICS-O3 )/TCS-QOR02  TJI ) » •* <N-1> )/ <CS-0°)- 
DO  115  L1=1,LMAX 

— DO  115-  L2  = ltLMAX  H 

JNTJ,  L1,L2)  = JN(  J,  LI  »L2)  «-FC2*HGT  (K)  *0CL  1)  *PSU3L  CL1  ) *PSU9L  (L  2 ) *c  TOR 

115  CONTINUE-  — • - 

150  CONTINUE 

— 00-  120- L2  = l ,tMAX -J 

00  121  I=i,NPTS 

GNH1T  I)=GNM1L<L2,  I) 

121  S (I) =SGL (L2tl) 

00  120  L1  = 1,LHA<  - - 

AICL1 ,L2)=AJ(Lltw2)=0. 

00  122  J = 1 » NORD  -- 

31  = OOP01  ( J) 

O2=00PO2(  Jl 

SMG1=SPLINE<NPTS,Q,GNM1,S,IN0EX,Q1I 

- — - -SMG2«SPLINF (NPTS,Qt&NH1,S,IN0FX,02> — 

A ICL1 »L2I =AI(L1.L?) ♦FC2*WGT { J ) • SHG1* I N < J , L 1 , L 2 > 

- A JILI,L2)=A  J«L1.L2)+FC1»HGM  J)*SMG2*JNIJ,LltL2) 

12?  CONTINUE 

- - 120  CONTINUE 

00  1 T C L1  = 1,LNAX 
SUNK  L 1)  =SUH2  f L 1 * =0 . 0 
00  136  L2=1,LMAX 
A=0.5»FLOAT(L2-1) 

SUM1(L1I=SU“1(L1)  ♦A*«KLt,l?l 
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GNH1L»LL,I>=3NM1L(LL,I»/T0TAL 

549  CONTINUE  - 

550  CONTINUE 

00  5 5 C K = 1,231 

SNL<l,*)=GNLC2»<)=GNL<3,tO  = 0.0 
5 60  CONTINUE 
GO  TO  570 

556  REMIND  * - 

00  ? J = 1 , NO°Q 
CS  = NJ ( J) 

1 E I N N I N . E 0 • 3)  CAL'.  G2GEN<ETfl  ,Q,CS,GNM1» 

'-CALL  LEP<PSU3L,CS,LH1>-  . - 

00  ?l  LL  = 1 » LNA  X 

00  211  1=1,201  --  — - - 

GNN1L  (LL  , I ) =SNM1L  (LL  ,1)  *PSU9L  <LL»  *GMHUT  l*WGT(  J) 
211  CONTINUE  - - 

21  CONTINUE 

- - 2 CONTINUE  - - - - 

570  IF(NOSHIFT.EO.(NMIN*1» I NOSHIFT=NMTN» 2 

NPTS=2C1—  -•  ~ “ 

<CH£4=41 

00  500  N=NHIN,NM4K  - ....  

A N=  r L 0 AT  ( N-  1 1 

IFTN. NE. (N“IN»ltl6n-  TO  571  - 
0111 =-1.0 

DO  559  1 = 2, 201  - . 

Q«I»=QII-1>  i-O.  01 

569  CONTINUE  — 

571  IFCN. NE.NOSHIFTI  GO  to  175 

npti-npts- - - — - 

N PT  5 = 5 1 

DQ=2. /FLOATTNPTS-l)-  ~ 

DO  71  1=2 , NPT5 

71  Qin=Q<I-lT-H)Q - 

DO  1,0  LL  = 1 * LN  A X 
DO  50  TI=1,NPT1,4 
GNM1L  CLL, 1 1 = j NL ( L L , II> 

- 40  CONTINUE - 

9 J N3  T S ) = 1 . 

- 175  -DO-  ,tNAX  - — - 

DO  41  I=1,NPTS 

41  GNH1T  I )=GNMit  <LL.  I»  - — •-  - - - 

CALL  SPCOFF (NPTS.O.GNNi, S,IN0EX1 

DO  411  I=1.N°TS  - - 

411  SGL(LL,I»=S(I» 

— 4 CONTINUE-*  * ~ • ' * —•  — - — 

C SGL  ATE  THE  SPLINE  COEFFICIENTS  OF  G2L 

MAXrNPTS- 1 

1 F ( N . L T . NCME9  33~TO  70 
KCHc  3=41 

IF (N.GE.NFHSHCT)<CHEP=21 

nax=<t HEP-1 

CALL  NODE ( XCHEP * C NODE ) 

DRlNf  999, (M,CN30£(N* , m=1,<CHE9) 
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SUBROUTINE  OGFN-OOHPUTES  THE  LEGENOP.E  COEFFICIENTS  0^ -THE  -5 C^ENE-? . 

RUTHERFORD  SCATTERING  KERNEL 


CALL  DGEnTETA,LMAX,0> 

PRINT  501 , T J, MUTJ) , WGT < J)  ,J=1 ,NORD)  

501  FORMAT  T1X,I5»2E16.9I 

LHl  = '.MAX-l  - — 

PRINT  10, ETA, LM1, CD (L) ,L=1,LMAX) 

10  FORMAT  (IX, “RUTHERFORD  SCREENING  FACTOP  =*  , E 1 2 . 5,  / 1 X , * ORDER-  OF-bE^f1 
INDRE  SERIFS  CALCULATION  I S* , 1 5/ 1 X , *SC A T T ER I NG  CDEFFIC IENTS = * , /IX  , 1 

20E12. 5/lX,10E12.5l  - - 

OBTAIN  THE  LEGENOPE  COEFFICIENTS  OF  G NL  IN  AN  AR?  A V 101  LONG  ON  Q. 
THEN  SPLINE  IT  FOR  USE  IN  THE  MAIN  INTEGRAL  EQUATION. 

GET  5NH1(MU,3>  FOR  THE  16  *U  VALUES  AND  101  1- VALUES . 

INTISPATE  OIRECTLT  TO  GET  GNMIL(Q). 

OQ=.31  - • - - 

0 (11 = -l. 0 

00  3 1 = 2,20  0 

om  = q < i-  i ) *00 

3 CONTINUE-  

3 C 20 1 ) =0 . 999 

IFThhIN.EO.  3)  GO  TO-  556-  

READ  5, NINT, (NPTT I) ,1=1, NINT) 

READ  6,1  UPEDGE  l I)  ,1=1,  NINT)  

5 FORMAT (8110) 

— 6 POPMATT8F10.0) 

1 K=  1 


OOWN=-l. 0 

00  7 NI=1,NINT 
I K = I < *NPT (NI) 

UP=JpEOGE (Nib 

DEL 3= ( UP- DOWN) /FLOAT (NPT < NT) ) 

-00  3 I=IL,IK  — 

Q ( I I =Q<I-1) ♦0EL3 

9-CONMNUE  - ----  - - 

I L=I < ♦ 1 

DOWN=Up  - - - - - 

7 CONTINUE 

TQTAL=0.0  ...  - 

DO  535  1=1,201 

REAOT 1 ) (GNL  <1,K» , 5NL  <2,0 ,GNL  <3  ,K> ,K= 1,201) , ABC 

1 FT  I . NE.  1)  TOT  AL  = T0T  AL*ABCMQ(  I)  -QTI-l ) > 

CS=-1 . 0 

00  537  K = 1 , 20  1 

CAtt  LEP<PSU9L,C3  , tHl) - — 

00  538  LL=1,LMAX 

GNM1H.  (LL,  I)  =GNM1L  <LL  ,I)»oSU9L  ILL  )*GNL  (2,0*0.01 
553  CONTINUE 

- - CS  = C 3 ♦ . 0 1 - - - - --  

557  CONTINUE 

555  CONTINUE  

00  559  L L = 1 , L H A X 

GN-IL  ILL,  1 ) =GMM1L (LL,2C1) =0.0 

00  5'4q  1 = 2,20  0 
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136  ( L 1)  = SUM?  (Ill  4A*AJ(L1,L?> 

GAN5(  L 11  = AM*  (SUM1  (t  1 » 4?U‘«2(L1>  > 

GNL(Li,M>  = G A N S (LI  ) 

130  CONTINUE  - ' - — 

1000  CONTINUE 

- 00  1C01-  L-1.LMAX- 

1001  SNLCL , 1) =GNL(L,Hpl» =0.0 

TOTAL  =0.  - - - - ' 

IFMAX.LE.40>  GO  TO  75 

- DO  7*4  M=2,MAX - - — * — — 

TOTAL  = TOTAL«-SNL  (It  M>*OQ 

74  CONTINUE  — - - 

PRINT  159, N 

PRINT  141, -TOTAL  - ' " — 

DO  7b  U_=i,LMAX 

— 00  7 9-  MN=1,NPTS  - - -• 

GNL < LL  ,MM) =GNL ( LL , MM ) /TO T AL 

- - 79  CONTINUE — - 

WRITE ( 2) N,LL*  NPT5  , ( GNL (LL  »MM)  ,MM=1,NPTS> 

76  CONTINUE  - - --  --  

GO  TO  77 

-75  00  IPO?  L = 1 , L N A X -----  

DO  1003  M=1,KCHE3 

ARR(M)=GNL(L,  M>--  — 

1003  CONTINUE 

-C  ALt-CHEDY  LARR,  3N09E ,KCHEBrCHCOF> ‘ 

PRINT  998 , (CHCOF ( <K ) ,KK= 1 ,KCHE9) 

DO  1004  J=1 ,NPTS 

- E ALfc— EGHE-9  ( OJ-rGMCC*1,  K-CHEB  , V At  F 

GNL(L , J>  =VAL 

I FT L . EQ. 1>T0T  AL  = T OTAL  + DQ*VAL  

QQ=00»DQ 

10  04  -CONTINUE 

00  550  KK=1,<CHE3 

- 550  C HCOc  T KK  > = CHCOF(<<V/ TOTAL — _ . - --- 

WRITE ( 2) N , L ,<  CHE3 , (CHCOF ( KK> , KK=1,KCHEB> 

DO  1005  J=1,NPTS 

CAtt-ECHEB(OQ,-CHCOF,KT;HEB,VAL>-  - 

GNLCL , J) = VAL 

q<j=-D  >+-OQ 

1005  CONTINUE 

100  2- CONTINUE^ ' 

999  FOPHT(1X,*CHEOY5HEV  NODE  S*  / ( 15  , El  6. 9 > > 

998  -F0RNAT(1X,*CHEBTSHEVC0EFFICTENTS  OF  GN*/<5E16t9M 

PRINT  159, N 

PRINT  141, TOTAL - - 

77  °RINT  551 

551  FORMA  T (IX, *PENORMAtfZEOM 

PRINT  161,(MM,QT(MM) , GNL (1,MM),MM=1,NPTS> 

141-FOPMAT  (1X,*-INTE5RAL  ^*-,E12i5> 

00  595  LL=1,LMAX 

— - — DO  595-1  = 1 , NPTS- - — 

GNM1L (LL, I>=GNL(LL, II 

585  CONTINUE  — - - - ■ 

500  CONTINUE 


159  FORMA  T (1X,*N=*  *I5»?X,*GN(Q) * ) 
161  F0RMAT(5(I6,F5.2,E12.5>> 

S TO3 
c mn 
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SUBROUTINE  DGEN ( E T 4 * EM  AX  , 0) 

' DIMENSION-  0 <Z0  >liZ  < 20  >~  - 

IFTLMAX.GT. l.OR.ETA .LT.l. E5> GO  TO  5 

0 1 1 > - l'i  0 

RETURN 

■ -5  CONTI  HUE 

E1=(1./<1.*0.5*ET4) ) 

Z UT^O-.U 

Z<2»  =AL0G(1.*2./ETAI -El 

— -C1-E1/ETA - 

TEST=1  .E6 

DO  1 ~L=3  » L m AX — - 

4L=F1 04T (L-2> 



CL=4L*1. 

Z (LT-  .«'FT4>  *Z  <L-1»  -CL*Z  M_-?>  -ML* El 

D0  = A3SIZ<U-C1> 

IFtDO.GT.  TEST  ) -GO-  TO  1 

TEST=  00 

1 CONTINUE 

IFTtM.EO.  LMAX  )— GD-TO-5 " ■ 

DO  Z L=LMtLMAX 

2 CONTINUE 

D CL*  =1 .-ZTL3/C1 

‘ -CONT  I HUE 

RETURN 

- END 


Subroutine  LEP  is  identical  to  Subroutine  LEP  used  with  program  PLMETHD. 
(see  page  106). 
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Subroutine  G2GEN  -computes  the  G^  function 


SUBROUTINE  G2GEN(ETA,XOS,C?,EXC) 

OIMENSION  XOS (201 > , EXC (201) _ . - - 

SEAL  11(201), 12(2011,13(2  Oil, 141 20 1) ,I5( 20 1>. 16(201) 
IE(tra.lT.l.E5>  GO  TO  5 ~ — 

OO  13  1=1,201 

EXC(I )=0. 25*AL03( 2./(l .-XOS(I» M - -•  - - 

10  CONTINUE 

RETURN- 

5 CONTINUE 
Y=l./ (l.-CS) 

FAC=(Y*(1.*C.5*ETA)/ETA)**2 

- ALOHA  =(1  .*ETA*Y>  **2 - — - 

9ETA=?.*Y*(ETA+Y-ETA-1.) 

G AN'1A  = Y*Y- 

5=AL3HA/c-TA**2 

T=9ET  A/ETA-2. + AL*HA/ETA*+-2  — 

U=GANMA-S-T 

- DISC=4-.+U+S-T  + T — 

A A = S 

- - B9=0. 5*(T*2.0*SI-  * 

C C=3  H»U 

C 1 = A A *CC— 89  *99  

C2  = 5.  *B8*CC-6.*33**3/AA 

- - C 3= 3 • +B9/ ( A A* * 2 • 5 ) • — - 

C4  = 2. *CC*CC-3.+93*B3*CC/AA 

EXCtl )=Oi 

31=32=83=84=95=0. 

00  29  0-1  = 1 ,201 

I F ( E T A.LT .0.1)  50  TO  199 

Ksj.f FT A/ ( 1.— XOS  ( IT  ) 

RA90L=SQRT(S*X**2*T*X*U) 

£PS  = AL0G(2.*'J  + T*<*2.*SQRT(J>*RADCL)-AL0G(X) 

1 1(1)  = -2.  + (2.+J*T*X)/(DISC*RADCD 

12(1) = 2 .*  (?.*S*X-*-T)A(DISC*PADCL) 

13(1)  =-2.*(S*T+X-2.*U+S*T+T)/(U+DISC*RA0CL)  - EPS  / (U+*1.5) 

_ - — — I 4 ( I V-  -=-l./(U*X*RADCL)-3.*T/(2.*U)*I3(T)  — 2,*S/UM-2FH 

15(1)  =(  (-4.*U*S*2.+  T*T)*K*2.  + U*T)/(S*DISC*PADC_>  * 

— M AtOX?.*SOPT  (S)  *RADCL-+2.*3*X+T>>/S**1 .5 — 1 

IF(I.EO.l)  GO  TO  70 

81=31Mm)-Il(I-l) 

32=32*12(1) -12(1-1) 

— B3=99*-I3(  I)-I3(f-1) 

94=34*14(1)— 14(1-1) 

95=35+15(1) -15(1-1) 

70  EXCt I ) = FAC*(-(1.*3.*Y*4./ETA>+91*3.*92* ( 1 . *Y *2. /ETA ) -B3* (Y*3.*4./ 

* 1ETA)  *94+  ( l.*l. /ET  A)  *35M  Y+l. /ETA)) 

GO  TO  200 

-199  Z=ETA/(i.-yOS3IFF 

PAOCL=SQP.T(  AA*  7*7*2.  *B3*Z*CC) 

TER11 =C2/C1*Z+C4/C1-  

TER1?=AL0G(RA9CL* (AA*Z*9B)/S0PT (AA) ) 

16(1 ) =1  • / ( AA*  9A0CL ) * (Z+Z+TERM1) —C  3* TERM?—  

0EL  = '*.MAA  + C0-99*99> 

A J2=  (-  (OEL-4.  *99*9P)  *7+4  .+CC  + Bn)  /(  AA'OEL  + PAOCL  )+l  . / FA  A**  1.-5 V* 

IAL0G(2.*SQRT(AA)*RA0CL*2.*AA*Z*2.*39) 

A6=1./(2.*AA)*( -5 . * 3°* 15 ( T) *Z** 3/P AOCL-3 . *CC  *A J2) 

I6(T)=A6* (l./ETA*2.-V)*I6(I) 

144 


IF(I.EO.l)  G3  T D 200 

EXCd  >=EXC  ( I-1MFAC*  (I6(  I) -I  6(1-1)  » - 
200  CONTINUE 

RETURN-  — - 

END 


Subroutine  SPCOEF  and  Function  SPLINE  are  identical  to  those  used  with 
Program  GAUSQN  (see  pages  124,  125). 


Subroutines  ECHEB  and  CHEBY  are  taken  from  R.  Broucke 
Subroutines  for  the  Manipulation  of  Chebyshev  Series",  Alg 
Comm.  ACM,  16,  No.  4 (1973) 


SUBROUTINE  ECHE3( X,COEF,NPL,FX> 

. — - DIMENSION  -C0E-F41I — 

9R=BRPP=0. 

4)010  -K=l  * NPL 

J = NP|_-K*1 

BPP?  = PRPP 

BRpt>=BR 

BR=2.-*X*BRPP-BRP2  + C-OEF<J) 

10  CONTINUE 

FX  = 0 .-5M9R-BRP2) 

RETJRN 

€N0 


SUBROUTINE  CHEBT t F , T ,NP1 , AP) 

4)I*1E-*SI0ft-F-T41  »44-lt-t  AR  < H 

FCNPl)=F<NPll/2. 

Z=Tf IR1 

T-Z=ZN-f 

91=32=0. 0 

NP=N*l-t 

DN=NP 

00-1-5— d=l,NP 

<=N°1 — J* 1 

1 EM3 - B 1 

B1  = T7*B1-B2*F  PO 

B2-TE-MP 

15  CONTINUE 

AtlS=  7*91  - B2«-F-<  1 ) / 2'. 

ARC  I?  ) = ( ANS  + ANS)  7DN 

d.  00 -CONTINUE- 

RET  J R N 


r 


Subroutine  NODE  was  extracted  from  a set  of  algorithms  by  D.  E.  Amos 
and  S.  L.  Daniel,  "CDC  6600  Utility  Routines  for  Chebyshev  Approximation 
and  Function  Inversion",  Sandia  Laboratories  Report  SC-DR-72  0917(1972). 


SUBROUTINE  NOOEINCHEB.X) 

OLM5^STUN-*(i*t>  r+H»L) 

PI  = 3.  1*.15926535898 

APB^fLr 

BMA=2. 

— N = NC-»E8-1 

DN=N 

THEF=  P-I/-0N 

TC1»=1.0 

T C-2I- *€OS  M-HEF) 

T0NE=T«2J 

V-ONE-=  SIN  < THEM 

VK  = if  ONE 


00  5 K=2  » N 

TK=r(K>- 

T (K*l )=T0NE*TK-V<*V0NE 

V K= V < * TONE +-TK*  VON  E - - - 

X (K>  = (TK*BHA*AP3) /2. 

--  - 5 CONTINUE 

X (1)  = (TC1J*8MA  + A:>9)  / ?. 

X!NCHEB)=<T<NCHE3>*BMA*AP9l/2. 

9ET'J?N 

ENO  - - 
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Subroutine  GRULE-  Evaluates  Gaussian  quadrature  weights  and  coefficients 


SUBROUTINE  GRULE  ( N , X , W) 

THIS  SUBROUTINE  HAS  FOUNO  ON  PAGE  169  OF  0AVIS  ANO  RA8INDNTTZ, 
-METNOOS  OP  NUMERICAL  INTEGRATION'*ACAOEMIC  °RESS,N.V  .-<19 iH 

- IT-  CALCULATES-GAUSSIAN  WEIGHTS  ANO  ABSCISSAS-  U SING- NEW F8*H-5 

METHOD  FOR  FIN0IN3  ROOTS  GIVEN  A GOOD  FIRST  ESTIMATE. 

- - MODIFIED  4— HO  V E N 3 E R 19-7/-  BY— J-.C.  GARTH-  TO  ITERATE  ONCE-EO3 

FINDING  HORF  ACS  JR  A TE  VALUES  FOR  THE  ROOTS.  THE  DOUBLE  R^ECIMON 

— - VERSION  GIVES  AGREEMENT  WITH  THE  TABLES  IN  ABRANDWTM  ET-AE» 

TO  15  DECIMAL  PLACES.  THE  SINGLE  “RECISION  ROUTINE  IS  GOOO  J'' 

ABOJT  TWELVE  PLACES. - — . 

OIMENSIO*-X<l  I , W< II — 

C 

M=<NHI/2 

E1  = N*  <N*1> 

T=<4*  I-l)*3.14159  2f>5  36/<4*N*2) 

X0=<1  .-<1.-1./N»/I8.*N*NH*C0S<T)  - — 

J = 0 

- 2 — CONTINUE- 

J = JU 

PK=X0 

90  3 K=2 . N 

T 1 = X3 *P< 

PKPlrTl-PKHl-ITl-PXMlE/K^Tl 

PKM1=PK 

0EN=1 .-XO*VO 

01  = N*  <PKM1-XO*PO - — 

OPN=  D l/OEN 

— 02PN=  »2**X0»0PN-E1*PK>VDEN 

D3PN=  < 4 • * X 0*0  2PN* <2 . -Ell *0PNI /OEN 

. _ D4PN=  <6.*XO*03PN«-<Br-El)*02PN)/OEN-  - - 

U=P</OPN 

V = 02iH/0e‘N 

H = -UM1.*.5*UMV*U* I V*V-U*03PN/ <3.*0PNI I I I 

p-=P*< ► H* < 0PN*.5*M*  TD2PN*H/3.*4  D3PN+.2S-*H*-C4°N1R» 

0P=0:»N*H*  <OPN*.5*H»  <03PN*H*04PN/3.I) 

H=H-*/OP 

C J IS  THE  NUMBER  DF  ITERATIONS  USED. 

1 F 9 >.GE.  2 l-GO-T  > 4 

XO  = XO  »H 

4 CONTINUE 

xm^yo+H 

FX  = Dt-H*El*(PK*’.5*H*  (0PN4-H7  3.*  <02PN*.2  5*H*  (03PN*. 2*8*04^1  III 

- 1 - W<IF=2.*<1t-X<II*XII»I/<FX*FXI 

IF  < <M*MI  .GT.N)  X<M)=0. 

RETURN- “ — — 

ENO 


148 


l j i 

Li - . - J 


Program  LOOK 


Program  LOOK  reads  the  files,  stored  on  magnetic  tape,  of  Legendre 
coefficients  of  the  reduced  source  functions  and  prints  the  data  in  an  easily 
legible  form.  A listing  of  the  program  is  given  here  along  with  two  sample 
pages  of  output. 


nnooci  ci  o n non  no '.inn  o ci  u orin  1 ooon,  o mnn 


PROG-.  AH  L0nKUN>JTOUTPUT,’APEt  , T APF  2 , T A °E  3 ) 
DIMENSION  C-N(10,  ?01>  ,0(2  011  , I OPT  I 3)  ,LMX(  3) 
DATA  LMX/5,8/ 

READ  l,(I0PT(n  ,1=1,3) 

I0»T(1»  . NE.  0 , PRINT  OATA  FOR  £ TA  = 10.0 
I0?T  <2)  ' .HET.  0 T PRINT  DATA  FOR  E T A"  = 1.0 
I0=T(3)  MILL  9E  US£1  FOR  ETA=0.J 

1 FO?  MAT  (315) 

iniDPTll)  .EO.tnSO  TO  200 

LHAX  = H AXI MUrl  LEGENDRE  COEFFJCI ENT"  ORDER 

(=4  FOR  ETA  = 10.0,  =7  FOR  ETA=1.0) 


100  1=1 

" LHAX=LMX(I) — 

"Q  IS  EDJ  ISP  ACE  D"  F 0?  £TA~  = 1 0 0~ 

■-  Q(ir=-i;o 

DO  1)1  J=  2, 201 

101  QCJ)  =QTJ-irv.oi 

N IS  tht  ORDER- OF  “"SCATTERING 

DO  1)  N = 3 7 1 0 

L IS  T Rr' INDEX  FOR-  THE~LEGENDPE"  COEFFICIENT  ' ORDER 

M IS  THE  INDEX  FOR"  THE- 0 ARRAY 

READ!  1)((GN(L,m»  ,-  L"=  1 , L MA  X)  ",  M=  2 0 IT 
CALL  PRN  TR(N,I,D»SN, LMAX) 

102  CONTI  NUE  - - - 

200  IFCIOPI  <2)  .EQ.  0)&O  TO  300  _ 

L M A X = L MX  C I ) 

n is  the  o3der  oc  scattering 

00  2M  N=  3 , 10 

M IS  Th"  INDEX  FOD  THE  0 ARRAY 


0 2H2  H = 1 , 2 0 1 


L IS  THF  INDEX  FOp  THE  LEGENDRE  COEFFICIENT  ORDER 

n IS  M3I  cOUTSPA".ED  FOR  ETA=1.0.  IT  IS  R F A Q IN. 

R E A 0 l 2 ) 0 f M ) ,(GN(L,H)  ,L=1,L1'*AX) 

?02  CONTINUE  ’ “ 

FALL  FFNTF  (N,I  , Q,  F-M,  lhax  ) 

' 2 01  CONTI  NUE-  ' 

TOO  STOP 

* — “ 
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SU3RTUTINE  PRNTR(N,I  ,Q,SN,IMAX> 

DIMENSION  GN(10,701)  , £ T A < * J , Q ( 2 0 1 ) 

OATA'ETA/10.,1.0  ,0.1/ 

PRINT  103, ETA  (I)  ,N 

100  F0’MAT<*1*,47X, 'RUTHERFORD  SCREENING  F ACTOR  i ' E T A = * ,*1  X , F5 . 2 ,*/4  W , * 0 
1<DER  OF  SCATTERING  = », 1 5 , /A 6 X , » L EGENQP E COEFFICIENTS  OF  _GNM 

00  1 j 'L  = l 7LMAX 

IL  = L-1  _ _ 

PRINT  101, LC 

101  c0R1AT<48X,*LrG£NP»E  SERIES  ORDER  = *,I5> 

' ~ PRINT"  102 

102  FORMAT (4X,*J*,4X,»Q*,9X,*GN*,8X,*J*, 4X , * Q* , 8X , * GN* , 8X , * J * , AX,*0*,8 
1X,*SN*,3<,*J*,'V*,  *Q*,8X,*GN*,BX,*J*-,4X,*Q*,5Xf*SM*> 

PRINT  ION, (J,9( J)  ,GN  (L,J)  , J=l,201> 

103  pQ^MAT C5( IGjFS^N ,E12  .5))  ” 

10  CONTINUE 

RETURN 

END 
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APPENDIX  3 


SAW  DEVICE  INVESTIGATIONS 

USER-ORIENTED  DOCUMENTATION  AND  PROGRAM  LISTINGS 


Program  GAL3SE  computes  the  surface  charge  density  expansion  coefficients 
for  perfectly  conducting,  infinitely  thin  electrodes  comprising  a planar  array 
impressed  with  potentials,  POL(I).  The  electrostatic  fields  thus  induced 
establish  an  equilibrium  distribution  of  charge  on  each  electrode  surface. 

The  system  of  Fredhom  integral  equations  of  the  first  kind  relating  charge 
density  to  applied  potentials  have  been  reduced  to  a linear  system  of  algebraic 
equations  using  the  Galerkin  method  described  in  the  paper. 

"Electric  Field  Interactions  Within  Finite  Arrays  and  the  Design  of  Withdrawal 
Weighted  SAW  Filters  at  Fundamental  and  Higher  Harmonics,  " by  Laker, 
Cohen,  and  Slobodnik,  Jr.,  1976.  Ultrasonics  Symposium  Proceedings, 

IEEE  CAT.  No.  CH1120-5SU,  pp.  317-321. 


USER  must  supply  the  following: 

A.  in  NAMELIST/PARAMS/ 

1.  ETA  = electrode  width/center-to-center  spacing  ( = .5) 

2m  NP  - no.  of  points  used  in  quadrature  to  create  PSI(X,X,X) 

= 128  (usually) 

3.  NN  = no.  of  terms  in  charge  density  expansion  (=6) 

4.  ITOTAL  = max.  no.  of  electrodes  in  array 

5.  NCASE  = no.  of  different  cases  (potential  sequences) 

to  be  applied  to  the  array  for  study. 

B.  in  NAMELIST /VSEQ/ 

1.  JTH  = electrode  location  for  which  expansion  coeffs.  are 

going  to  be  evaluated. 

2.  NUM  = outdated  parameter,  never  used. 

3.  POL  = array  of  applied  potentials. 

NOTE:  POL(X)  less  than  EE  signifies  a withdrawn  electrode. 

C.  Off-diagonal  matrix  elements  on  TAPE1  generated  from  program  PSIGEN. 

ARRAY  DIMENSIONS 
R (ITOTAL  *NN  + 1) 

C(|lTOTAL*NN+  1 ]*[lTOTAL*NN+ 1 ]) 

PSI(NN,NN,  2*ITOTAL-l) 

ISEQ(ITOTAL)  --  not  currently  used  in  this  program 
POL  (ITOTAL) 

CC(NN) 

U (ITOTAL) 

NOTE:  In  subroutine  COEFFS,  the  variable  JTH  identifies  the  electrode(s) 
for  which  the  expansion  coefficients  array  is  to  be  evaluated.  JTH 
may  be  varied  in  a DO- LOOP  or  fixed  at  one  value. 

Programs  GAL3AD  (for  double  electrode  arrays)  and  GAL3AT  (for  triple 
electrode  arrays)  must  also  be  used  in  the  manner  described  above. 


PROGRAM  GAL3SEC INPUT. OUTPUT. TAPE1 , TAPE6. TAPE 7, PUNCH) 

C0MM0N_BX12Z±dCJJLda2jZliiSJjL6o.6^AL) 

COMMON  PHIQ. ETAKJ, NP, NP2. NP2P1 , NUP,  ALF 

COMMON  . I.J.  KM.  IA(21  ).  ITOTAL.  JTH.  NN.  KASE.  I SEG  (2 l±uE0LL2Uu£Cl£ul 

DIMENSION  V ( 22 ) 

DIMENSION  J-H21J 

DATA  ZP.  ZM. ZA/1H+.  1H-.  1HA/ 

NAMEL I ST /PARAMS/ET A,  NP.  NN.  ITOTAL. NCASE 

NAMEU ST/VSEQ/NUM.  JTUlPPI 

C VERS  LON 3A OE-  GALERKN  - 2/1 6/7 7 £(& A*aAY$ 

C COEFF.  ARE  COMPUTED  FOR  ETA  = . 5 

_C 

READ  PARAMS 

‘ PRINT  PARAMS 


JT  0P=2* I T OT  AL- 1 

EE= 1 E-8 

AL2=AL0G(2.  ) 

NP2=NP/2 

NP2P1 =NP2+ 1 

NUF‘=NF‘2F'  1 + 1 

ALF=2.  *P  I /FLOAT  ( NP ) 

DTDPHI=ALF«ALF 

PISQ=PI*PI 

P I LOG=P I SQ» AL2 

FIP5=  5*PISQ 

PRINT  400 

I TOP= I TOTAL*NN+ 1 


200  FORMAT  ( 1 X.  5E20.  10) 

C 

do"  794  1 = 1.486 

794 READ (7,  VSEQ) 

READ ( 1 , PARAMS ) 

PRINT  PARAMS 

READ ( 1. 200)  ( ( (PSI (LI. L2. L3). Ll=l, NN), L2=l, NN ) . L3=l, JTOP) 

333 CONT I NIJE 

DO  999  KASE=  1.243 

RE  ADJ  7 .J7SEQ ) 

J=0 

DO  27  1 = 1,  ITOTAL 


I A ( I ) = 1 

AA=AES ( POL ( I ) ) 

I F ( AA.  GT.  EE)J=J+1 

IF  ( AA.  LE.  EE)  IA(  I )=0 

27  CONTINUE" 

C 

IDIM=J*NN+1 

MOST  = I D I M* I D I M 

DO  272  1=1. MOST 

272  C(I)=0. 

K=0 

DO  277  1 = 1.  I TOP 

277  D ( I ) =0. 


DO  160  KKK= 1 , ITOTAL 

IF(  IA(KKK).  EQ.  0)G0  TO  160 

K=K+ 1 

U ( K / -POL (KKK ) 

T = 1 + <H*-1  >*N1N  155 


160 —CONTINUE 

C 

C FORMATION  OF  THE  OFF-DIAGONAL  ELEMENTS  A (IRON. ICOL) 

C 

DO  250  L=1 . NN 

BG_350_N=L.J'JN 

JJ=0 

DO 4 50— JJJ=1  j.-IJDT-AI 

I F < I A < J J J ) . EQ.  0 ) GO  TO  450 

JJ=JJ±J 

K=0 

DO  550—KKK=l  j J-TOIAI 

IF(  IA(KKK).  EQ.  0)G0  TO  550 

K=K+1 — 

IF  (K.  EQ.  JJ)GO  TO  550 

KM.iP7=KKK- JJJi-ITQTAI 

IR0W=L+(K-1 )*NN 

I COLhN+I  JJbJJJtNN 

I = I ROW+ ( I COL- 1 ) * I D I M 

C LL1=PSIJJL.  JsLXM  JEZT 

550  CONTINUE 

450 CCNTJLNUE 

350  CONTINUE 

.250  _ CONTINUE 

C 

C C0MPUTAT1  ON  -OF-  D 1 AGONAI MAXR IX  ELEMENTS 

C ' L=N=0  ELEMENTS.  K=JJ=1 , 2.  . . . . J 

C 

NI=NN*< IDIM+1 ) 

1=1 — N I 

DO  67  K= 1 » J 

I=I+NI 

C< I ) =-PI LOG 

67 CONTI  NUE 

C 

C L=N=1  j 2, .-NN MATRIX-ELEMENTS K=JJ=1^  2J l_J 

C 

DO— 72-  L=2,  NN 

DO  87  K=l,  J 

IJ=L+jCK=JJ-*NN 

1 = 1 1 + < 1 1-1 >*IDIM 

...  Cl J-)  =-P_IP5/FL0AT U-=IJ 

87  CONTINUE 

77  —CONTINUE 

C 

C 

C MATRIX  ELEMENTS  FOR  ZERO  TOTAL  CHARGE  CONDITION  & REF.  POTENTIAL 

DO  99  K=1 » J 

IR=l  + OC-U-MNN 

I = IR+( IDIM-1 ) * I DIM 

C1-Uj=PJ 

DO  89  L=2. NN 

IROW=L+X»CrJ.J  «NN 

I I = I ROW-*-  ( IDIM-1  )*IDIM 

Ci -II  ) -0 

89  CONT I NUE 

99 CONTJ  NUE 

C 

__D0_79_K =1j  J 

IC=1+ (K-l )*NN 

J»IDIM-MIC--1J*IDIM 

C(  I ) = 1. 

-fci  r riMT  t mi  ic 


156 


c 

CALL  SIMG(C, B, IDIM, KS) 

c 

c - 

c 

c 

c 

CALL  COEFFS 

400 

FORMAT ( 1H1, 30X, *CHARGE  DENSITY  EXPANSION  COEFFICIENTS 
1 - NOT  NORMALIZED  TO  SMITHS  TABLE*) 

FOR  ETA=.  5 

290 

291 

FORMAT (IX,  212,  IX,  6E11.  4) 

FORMAT ( IX,  212,  IX,  17(A1,  2X)  ) 

349 

351 

FORMAT <3X, 17 (Al. 2X)» 24X, 12) 

FORMAT  <5X.  5F13.  10) 

149 

151 

FuRMAT(/45X, 17(A1,2X)/) 

FORMAT < 30X,  5F13.  10) 

999 

C 

CONTINUE  • 

C 

END 

SUBROUTINE  COEFFS 

COMMON  B( 127), C( 16129), RSI <6.  6,  41 ) 

COMMON  DUM( 7 ) 

COMMON  JJ, KM,  I A ( 21 ) , ITOTAL. JTH, NN, KASE,  ISEQ(21 ),  P0L(21 ),  CC<6) 

C 

NAMEL I ST /CVAR/KASE, JTH. KM,  MM,  POL,  CC 

JTH=1 1 

J J=0  * KM=0 

DO  199  KA= 1 , ITOTAL 

1 1 = I A ( KA ) 

JJ= JJ+ 1 

IF < 1 1.  EQ.  0 ) GO  TO  199 

KM=KM+1 

IF( JJ  NE.  JTH) GO  TO  199 

C 

MM=  < KM- 1 ) *NN 

C 

DO  200  N=1,NN 

200 

CC ( N ) =B ( N+MM ) 

WRITE (6, CVAR)  

PUNCH  45, KASE, JJ,  ( POL ( MA ) , MA= 1 , ITOTAL) 

PRINT  45, KASE, JJ,  < POL ( MA > , MA  = 1 , I TOTAL ) 

PUNCH  55, KASE, JJ, CC 

PRINT  55,  KASE,  JJ,  CC 

45 

55 

FORMAT(  IX,  13,  IX,  12,  3X,  7F10.  6/ ( 10X,  7F10.  6)  ) 

FORMAT  (IX,  13,  IX,  12,  3X,  7F10  6) 

199 

C 

CONT I NUE 

RETURN 

END 

SUBROUTINE  SIMQ( A,  B, N, KS) 

DIMENSION  A ( 1 ) , B ( 1 ) 

-F 

-F 

C 
• C 

SUBROUTINE  SIMQ 

-F 

-F 

c 

C 

PURPOSE 

-F 

-F 

C 

c 

OBTAIN  SOLUTION  OF  A SET  OF  SIMULTANEOUS  LINEAR 
AX=B 

EQUATIONS, 

F 

-F 

c 

c 

USAGE 

-F 

-F 

c 

CALL  SIMQ(A, B,  N,  KS)  j57 

-F 

-F 


1 1-1 1+N 
J2=.I1  + IT 

— r 

-F 

SAVE=A( 11  ) 

A < 1 1 > ( I.2JL 

-F 

A ( I 2 ) =SAVE 

-F 

5Q_AU  li^ALLUZELLGA 

SAVE=B< I MAX) 

B( IMAX )=B( J)  


B( J)=SAVE/BIGA 


ELIMINATE  NEXT  VARIABLE 


IF(J-N)  55.70,55 

55  IGS=N*<J-1>  


DO  65  I X=JY.  N 

I X J=1QS+ 1 X 


IT=^-IX 

DO  60  JX=JY,  N 


IXJX=N*<  JX-1)+IX 

JJX= I X JX+ IT 


60  A ( I X JX ) =A ( I X JX ) — (A< I X J) *A < JJX ) ) 
65  B( IX)=B( IX)-(B( J)«A(IXJ)  ) 

BACK  SOLUTION  

70  NY=N— 1 


IT=N*N 

DO  60  J=1 . NY 


I A=IT-J 

IB=N-J  


IC=N 

DO  SO  K= 1 , J 


B( IB)=B( IB)-A( IA)*B( IC) 

IA=IA-N 

SO  IC=IC-1 


a_  u_‘  U_ 


r 1 


PROGRAM  GAL3AD< INPUT.  OUTPUT.  T APE  1 . TAPE6.  TAPE7) 

COMMON  - B (T33)-,X.U7Z,89_) 

COMMON  PS I (6.  6.  43) 

COMMON  -PH IQ.  ETAKJ,  NP_,  NFlZ.-NR2Ri-.-NUP_._ALE 

COMMON  JJ. KM,  IA<22).  I TOTAL.  KTH. NN, KASE, SEQ( 22 ) . V ( 22 ) . CC ( 10) 

D I MENS  I ON  -U 1 221 

DATA  ZP, ZM, ZA/1H+.  1H-,  1HA/ 

DATA -P‘1 /3-1415S2&535SaZ&/ 

NAMEL I ST /PARAMS/ET A,  NP.  NN,  ITOTAL.  NCASE 
NAMEL  I-SJXVSEQ/V 


C 

-_X_- VERSION  -3AD— OF— GALERKN  — =^—3/4  4/77 

c DOUBLE  ELECTRODES. 

r DOUBLE— ELECTRODE COEEE ARE-JCOMPUTED-EOR — EXA  _= 5. 

C 


READ-RARAMS 

PRINT  PARAMS 

- C - — 

C BEGIN  THIS  RUN  AT  CASE  # 198 

DO— 7-27 — IjO-^-1-25 * 

727  READ (7.  VSEQ) 

C — 

JT0F‘=2*  I TOT AL- 1 

AL2=AL0G(2— > 

NP2=NP/2 

NF12R.1  =NR2*i 

NUF-NP2P1+1 

ALF=2.  -*P  I/FLXlAT  <NPT 

DTDPHI =ALF*ALF 

PISQ=P1*PI 

P I LOG=P I SQ*AL2 

PI  FX=-5*FPSQ 

PRINT  400 

I T UP=I T OIAL*  NN+4 

C 

— 200  — FORMAT  ( IX,  5E20.P01 

C 

READI-L.-EARAMSJ 

PRINT  PARAMS 

READIij_200J — I-LLPSiiLij  1_2,P3-)j-L1  =i-.  NN),  L2=l,  NN),  L3^1,  JTOR) 

333  CONT I NUE 

DO -999— KASE=i , NCASE 

READ (7, VSEQ) 

J=0 

DO  27  1 = 1,  ITOTAL 

I A ( I )=1 

I NTV= IF  I X < V ( I ) ) 

SEQIJJ  =ZA 

IF  < INTV.  EQ.  1 ) SEQ < I ) =ZP 

LEi-LNTV— EQ  _ l.)3EQI I ) =ZM 

IF  < INTV.  EQ.  0 ) I A ( I > =0 

IFLI  J NTV— EQ— OJ  GO  TO  27 

J=J+1 

27. CONTI  NUE 

C 

IDIM=J*NN±J 

MOST  = I D I M# I DI M 

D0_ 272  _I  = i,  MOST 

272  C(I)=0. 

K=0 

DO  277  1=1, I TOP 


r.  / t \ —r\ 


160 


oloo'o  I Olouu  OOO  j uoo 


Liu  16U  KRk=l.llUlHL 

IJF  ( I A (KKKi^EQ_OJ_GCLJO_lAO, 

K=K+ 1 

U ( K )=y  ( KKK) 

" 1=1+ (K-l )*NN 

B ( I )=FI»U(K) 

1 60  CONT I NUE 


FORM  AX  IJj_NL0F_T  HE_JjF  F^D JLAfiON  AL_E  L E H E N T S AT.  I ROW,_ICC'LL 

DO  250  L=l. NN 

DO  350  N=1.NN 

JJ=0 

DO  450  JJJ=1» I TOTAL 

IF ( 1 A(  JJJ).  EQ.  0)00  TO  450 

JJ=JJ+1 

K=0  

DO  550  KKK= 1 » I TOTAL 

IF ( IA (KKK).  EQ  0)00  TO  550 

K=K+ 1 

I F(K.  EQ.  JJ)GO  TO  550 

KMJP7=KKK- JJJ+ I TOTAL 

I RGU=L+ ( K— 1 ) »NN : — . 

ICOL=N+( JJ-1 )*NN 

1 = IRQU+<  ICOL-1  )»I D IM 

C ( I ) =PS I (L. N, KMJP7) 

550  CONT  I NUE 

450  CONTINUE 

350  CONTINUE . — 

250  CONT I NUE 


COMPUTATION  OF  DIAGONAL  MATRIX  ELEMENTS 
L =N=0  ELEMENTS. K=JJ=1,  2.  J 


N I =NN» ( IDIM+1 ) 

1=1— NI 

DO  67  K= 1 » J 

I=I+NI  " 

C( I ) =-PILOG 
67  CONT I NUE 


L=N=1. 2,  . . . . NN  MATRIX  ELEMENTS.  K=JJ=1. 2.  ....  J 


DO  77  L=2, NN 

DO  87  K»l« J 

I I =L+ ( K— 1 ) *NN 

1 = 1 1 + ( 1 1-1 )*IDIM 

C ( I > =-P I P5/FL0AT ( L- 1 ) 

87 CONT I NUE 

77  CONT I NUE 


MATR IX  Ft  EMENTS  FOR  ZERO  TOTAL  CHARGE  CONDITION  & REF^_PQLENIJ-g!U 


DO  99  K=1jlJ_  

IR-l-MK-I  )*NN 

I*I R+(I DIM-1 ) * I D I M 

C( I)=PI 

DO  89  L=2. NN 

IROW=L+ (K-l )*NN 
I I=lROM+( IDIM-1 )«ID1M 
C('li)=0. 

89  CONT 1 NUE  


_IC=li-(K— _1.)«NN 

I=IDIM+< IC-1 )*IDIM 

_ CIIJ=1 

79  CONTINUE 


_C 

C 

C 

C 

CALI SIMGU  Cj  Bj_IDIMj_KSJ. 

DO  24  1=1. IDIM 

24 


C 

C 

c 

-X 

c 

CALI COEEESD. 


400l _F uKMAT  O HIj  3QJL_* CHARGE  .DENSITY  EXFANS I OM_COEEFJ  C I ENT  S_FOR_  EIA 
1 - NOT  NORMALIZED  TO  SMITHS  TABLE*) 

290  FORMATJ  1Xj-2I2j_LXj  6E1A_A1__ 

291  FORMATdX,  212.  IX,  17<A1. 2X)  ) 


351  FORMAT <5X.  5F 13.  10) 

1 49_FORMATX245X*-12XAlJXXTXX- 
151  FORMAT ( SOX,  5F1 3.  10) 


.5 


999  -CONTINUE 

C 

C 


END 

SUBROUTI NE  COEFFSD 

COMMON  B( 133), C( 17689) 

COMMON  -PS 1 I 6.  6,  43J 

COMMON  DUM ( 7 ) 

_COMMON_JJL.-KM*-IAX  22-)L,-IXQXAL*-KXH«-NN.JCASE-»SEQ.l.22.)-.-V-(.22J-.XCiiQJ — 

DIMENSION  IK < 22 ) 

NAMELI ST/CVAR/KASE,  JJ.  JCM,  MM.J/.  CC 

C 

C ************* ****»**FOR  DOUBLE  ELECTRODE  ARRAYS  ************* 

C ICR  -2<_ICi ARE— ED R—XHE— MIDDLE— ELECTRODES 

KR=  1 1 

KL=  1 2 

C ****** **************FOR  DOUBLE  ELECTRODE  ARRAYS  ************* 

JJ=0 * KM=0 

DO  199  KA= 1 . I TOTAL 

IX=  I A OCA) 

JJ=JJ+1 

IF  ( 1 1.  EGL  0)00-10X99 

KM=KM+ 1 

IF  ( JJ.JME.  )CI AND  JJ.  NE.  JCR)CQ_XQ — 199 

MM= ( KM— 1 ) *NN 

C 

PRINT  1 15.  KASE,  JJ.  KM,  MM 

PRINT __L25j  XSEQ  LIJ-,_I=J_,_LTOTALJ 

PRINT  135.  <C(N+MM).  N=l.  NN) 

DO  200  N= 1 . NN 

200—  DCXM)  -CLN+J1M) 

WRITE (6, CVAR) 

-129  CONTINUE 

C 

I15-_F0RMATI/yjll5X,  *CASE*J_I.4,  5X*  *LOCATJ OM-NO-JL,  13,  5X,  *KM=*j  13,  5Xl_ 
1 *MM=*.  13)  ,/2 

criC’MAT<c.v  1 A > l0£" 


I Urvi'lR  I l/l  UX.  ~K)  / ) 

RETURN 

END 

.SUBROUTINE_SIMG(A,  B,_N,  KS) __  . 

DIMENSION  A < 1 ) • E<1 ) 

SUBROUTINE  SIMQ 

r« 

PURPOSE 

OBJ  A I ti„SOLUXI  ON_OE_A_£ET_OE_SII1ULT  ANEOUS.  LINEAR  EQUATIONSj 

AX=B 

USAGE  ~ 

CALL  SIMQ  (A,  B.  N.  KS) . 

DE SC R I FT  I ON  OF  PARAMETERS 

A - MATRIX  OF  COEFFICIENTS  STORED  COLUMNWISE.  THESE  ARE 

DESTROYED  IN  THE  COMPUTATION.  THE  SIZE  OF  MATRIX  A IS 

N BY  N. 

B - VECTOR  OF  ORIGINAL  CONSTANTS  (LENGTH  N L THESE _ ARE 

REPLACED  BY  FINAL  SOLUTION  VALUES.  VECTOR  X. 

N_^_NUHBER_Q£_EQUAII.ONS_AND_VAB  I ABLES. N^MU£JLBE_.  GT ONE 

KS  - OUTPUT  DIGIT 

0 FOR  A NORMA) — SQLUULQU : 

1 FOR  A SINGULAR  SET  OF  EQUATIONS 


REMARKS 

MATRIX  A MUST  BE  GENERAL. 

IF  MATRIX  IS  SINGULAR  , SOLUTION  VALUES  ARE  MEANINGLESS. 
AN  ALTERNATIVE  SOLUTION  MAY  BE  OBTAINED  BY  USING  MATRIX 
INVERSION  ( MINV ) AND  MATRIX  PRODUCT  < GMPRD ) . 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQU 1 RED 

NONE _ 1 


METHOD  

METHOD  OF  SOLUTION  IS  BY  ELIMINATION  USING  LARGEST  PIVOTAL 

DI  VISOR, E ACH_STAGE_OF_EL I M J N AT  I ON  CQNS  1ST t_OF_I NJERCHANQ I NG_= 

ROWS  WHEN  NECESSARY  TO  AVOID  DIVISION  BY  ZERO  OR  SMALL 

ELEMENTS, - 

THE  FORWARD  SOLUTION  TO  OBTAIN  VARIABLE  N IS  DONE  IN 

N STAGES  THE  BACK  SOLUTI ON  FOR  THE  OTHER  VAR I ABLES — I S z 

CALCULATED  BY  SUCCESSIVE  SUBSTITUTIONS.  FINAL  SOLUTION 

VALUES  ARE  DEVELOPED_  I N_  VECTOR_Ei _ WITH.  VAR  I ABLE  _1 — I N BUJb r 

VARIABLE  2 IN  B<2). VARIABLE  N IN  B ( N ) . 

IF_NO_PIVOI_CAN_BE  JEOUND  EXCEEDING  A TOLERANCE _ OF.  0.  0, r 

THE  MATRIX  IS  CONSIDERED  SINGULAR  AND  KS  IS  SET  TO  1.  THIS 
TOLERANCEL_CAN_BE_tlODIEI  ED_B_Y__REpLAC  I NG_THE  JE1  RSX_STAJEMENT = 


FORWARD  SOLUTION 


T 0L=0.  O 

KS=0  

JJ=-N 

DO  £.5  J=1 . N 

JY=J+1 

_JJf=JJ+N±l 

BIGA=0 

I T = JJ- J 

DO  30  I =J.  N 

SEARCH  FOR' MAX  I MUM  COEFFICIENT Tn  COLUMN 


r 

lrt&*  = I 

x 

30  CONTINUE 

- 

c 

C 

TEST  FOR  PIVOT  LESS  THAN  TOLERANCE  (SINGULAR  MATRIX) 

IF < ABS(BIGA)-TOL)  35.35.40 

35-KS=J. 

RETURN 

_C 

C INTERCHANGE  ROWS  IF  NECESSARY 


50  A(I1 ) =A ( 1 1 )/BIGA 

SAVE=B 1 1 MAX.) 

B< I MAX )=B( J) 

B(U) =SAVE/BIGA 


:L  J M I N ATE_NEX  J-VAR  TABLE 


. TFT  J-N ) -55.-70.55 

I QS=N* ( J-l ) 

DO  65  - 2X=JY-.-N 

I X J= I GlS+ 1 X 

-IJ=J-  I-X 

DO  60  JX=JY.  N 

-4  X JX=N*  < JX=iJ  +4JC 

JJX= I X JX  + 1 T 

A<  IX JX ) =A< I X JXT  ^T  A(IXJJ»A  (-JJX-)-)- 
B . I X ) =B ( I X ) - ( B ( J ) *A ( I X J ) ) 


BACK  SOLUTION 


70  NY=N-1 

IT=N*N  

DO  80  J=  1 . NY 

I A=i T-U 

I B=N- J 

IC=N 

DO  80  K=l.  J 

B d B ) =B  CJLB1  -Ad  A)  *BdCJ. 

IA=IA-N 

X0_JC=IC^1 

RETURN 

END 


-n^i-nfn-nh-TirTi-n 


PROGRAM  GAL3AT ( INPUT,  OUTPUT,  TAPE 1 , TAPE6. TAPE 7,  PUNCH) 


C OMMON  B ( 235  > . C ( 55225 ) 

COMMON  PSK6.  6,  77) 

COMMON  PHIQ,  ETAKJ.  NP,  NP2.  NP2P1. NUP.  ALF 

COMMON  JJ, KM.  I A < 39 ) . I TOTAL. JTH. NN. KASE.  ISEQ(13).  POL (39),  CC<6) 

DIMENSION  U< 39 ) 

INTEGER  POL 

DATA  ZP, ZM,  ZA/1H+,  1H-,  1HA/ 

DATA  PI/3.  14159265358979/ 

NAMELIST/PARAMS/ETA,  NP.  NN,  ITOTAL, NCASE 

C 

NAMELIST/VSEQ/JTH.  NE.  ISEQ,  POL 

C 

C 

VERSION  3A  OF  GALERKN  - 2/16/77 

COEFF.  ARE  COMPUTED  FOR  ETA  = . 5 

C 

C 

TRIPLET  COMPUTATIONS 

c 

JTH=20 

C 

READ  PARAMS 

c 

PRINT  PARAMS 

C 

JTOP=2* I TOT  AL- 1 

AL2=ALOG  ( 2.  ) 

NP2=NP/2 

NP2P1=NP2+1 

NUF-NP2P1+1 

ALF =2.  *P  I /FLOAT  ( NP  > 

DTDPH I =ALF* ALF  . 

PISQ=PI*PI 

P I LOG=F'  I SO*  AL2  - 

PIP5=.  5*PISQ 

PRINT  400  _ „ 

c 

I TOF'=  I TOT  AL*NN+ 1 

200 

C 

FORMAT (IX,  5E20.  10) 

READ< 1. PARAMS) 

PRINT  PARAMS  . ..  . . 

C 

READ ( 1 , 200)  ( ( (PSI (LI,  L2.  L3). Ll  = l, NN), L2=l, NN),  L3=l.  JTOP) 

\ 

DO  999  KASE=1.  NCASE 

READ (7,  VSEQ) 

PRINT  VSEQ 

DO  27  1 = 1.  ITOTAL 

I A ( I >=1 

I NTV=POL ( I ) 

IF< INTV  EQ  0) IA( I )=0 

IF  ( INTV.  EG  0)G0  TO  27 

J= J+ 1 _ 

27 

C 

CONTINUE 

I D I M= J*NN+ 1 

MOST— I DIM*  I DIM 

272 

DO  272  1=1, MOST 

C(I)»0. 

K=0 

DO  277  1 = 1.  IT  OP 

V*  i . 

* 3 , *•»  i • -v  ^ 

* 

_K=K+ 1 - 


U ( K ) =POL (KKK ) 

I=1+(K-1)*NN 

E( I )=PI*U(K) 

160- -CONTINUE 

C 


C 

C 


FORMATION  OF  THE  OFF-DIAGONAL  ELEMENTS  AIIROW, ICOL) 


DO 

jja 


250  L=l.  NN 
_350_-N=?J_i-NN- 


JJ=0 

D0  450  JJJ=KJJOJAI 

I F < I A ( J J J ) . EQ.  0 ) GO  TO  450 

J J= J J-U 

K=0 

D0lJ55O_KKK=1j_UDIAI 


I F ( I A ( KKK ) . EQ 
_K=J£+J 


0 ) GO  TO  550 


IF  (K.  EQ.  JJ ) GO  TO  550 
KM  JP7  =KKK- J JaJ+J  IOJAL_ 
IR0W=L+(K-1 ) *NN 
LCOL=N-tIJJ=UJtMN 


I = I ROW+ ( I COL— 1 ) * I D I M 
C LI.)  =PSI  J L.  -N.  KMJFiZJ — 
CONTINUE 

ONT INUE 


CONT I NUE 
350 CONTINUE- 


C 


C 

_C 


COMPUTATI  ON  -OF— D I AGONAI MATRIX  ELEMENTS. 

L=N=0  ELEMENTS.  K=JJ=1»  2.  ....  J 


NI=NN*( IDIM+1 ) 

-I=U=NI 

DO  67  K=l. J 


_I— I+NI- 


C(I )=-PILOG 
-CONT  INUE 


C 

-C- 


._NN MATRIX -ELEMENTS 


-K=JJ=l-._2. 


DO--77-L=2,-NN 
DO  87  K=1 # J 


II=L+  (K-,1  J»NN 

1 = 1 1 -»•  < 1 1-1  )*IDIM 
Ci-U  ==F3P53EL0ATXL=ilJ- 


1 


87  CONTINUE 

77 CONTINUE 

C 

C MATRIX  ELEMENTS  FOR 

_£ 


ZERO  TOTAL  CHARGE  CONDITION  *<  REF.  POTENTIAL 


DO  99  K= 1 , J 

IR=1  +JK-IJ  *NN 

I=IR+< IDIM-1 >*IDIM 

_JC1U  =PI 

DO  89  L=2. NN 


LROW=L>-(Kr-lJ  *NN_ 


89 

-93 


I I=IROW+< IDIM-1 )*IDIM 

XCULJ  =0 

CONTINUE 


CONTINUE 
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r,r,  t o |/-  i 


I 


lL  -1  + (k  ~ 1 ) 'NN 

I*IDIM±J  ICrU*IDIM 

C(  I ) = 1. 

79  . CONT I NUE  


CALL  SIMQtC.  B,  IDIM, KS) 
CALL  CClEFFT 


ORMAT< 1H1, 30X,  »CHARGE  DENSITY 


1 - NOT  NORMALIZED  TO  SMITHS  TABLE*) 

CONTINUE 


END 

SUBROUTINE  COEFFT 


COMMON  B < 235 ).  C< 55225) 
COMMON  PS I (6.  6.  77) 


COMMON  DUM ( 7 ) 


,_I  SEG  ( L3JLLEDL 1 3SJ^CCH  < 


•M 


INTEGER  POL 

NAMELIST/CV AR/K ASE , JJ,  KM, MM, 


COEFF.  FOR  3-PHASE  TRIPLETS  

JP=JTH+1 


JM=JTH— 1 
JJ=KM=0 


DO  199  KA= 1,1 TOTAL 
I I=IA(KA) 


JJ=JJ+1 

IF  < II.  EQ.  0 ) GO  TO  199 


KM=KM+1 

I F < J J.  LT.  JM.  OR.  JJ.  GT.  JP)GO  TO  199 


MM= ( KM-1 ) *NN 


IF( JM  EQ.  JJ) PRINT  225,  ISEQ,  < B( N+MM ) , N=1 , NN ) 

IF  ( JTH.  EQ.  J J ) PR  I NT  235,  ( B ( N+MM ),  N=1 . NN ) 

IF<  JP.  EQ.  JJ)PRINT  245,  ( B ( N+MM ) , N=l. NN) 

DO  200~N=II"NN 
CC  < N ) =B ( N+MM ) 


WR IXE  < 6 ,_CVAR ) 

CONTINUE 

FORMAT C 30X » «CONF I GUFtAT ION  OF  3-PHASE  TRIPLETS*/ /30X.  13I2///5X# 

1 «LEFT»,  IPX,  6F9.  6) 

FORMAT  (5X,  *CENTER*,  8X,  6F9.  6) 

FORMAT (5X. »RIGHT *,  9X , 6F9,  fc/// ) 

RETURN 

END 

’ SUBROUT  I NE  S I MQ ( A , B , N,  KS ) 

DIMENSION  A(  1).  B(  1 ) 

SUBROUTINE  SIMQ  

PURPOSE 

OBTAIN  SOLUTION  OF  A SET  OF  SIMULTANEOUS  LINEAR  EQUATIONS, 
AX=B 

USAGE 

CALL  SIMQ (A,  B.  N,  KS) 


j 


N J3Y  N. 

B - VECTOR  OF  ORIGINAL  CONSTANTS  (LENGTH  N)  THESE  ARE 

. REPLACED  -BY  FINAL  SOLUTION  VALUES,  VECTOR  X 

N - NUMBER  UF  EQUATIONS  AND  VARIABLES  N MUST  BE  GT  ONE. 

_KS_^_-OUTPUJ_D  I GU 

O FOR  A NORMAL  SOLUTION 

_ _1  FOR  A SINGULAR  SET  OF  EQUATIONS  _ 


-REMARKS 

MATRIX  A MUST  BE  GENERAL 

IF  MATRIX  IS  SINGULAR  . SOI  UT I ON  VALUES  ARE  MEAN  I NGLES 
AN  ALTERNATIVE  SOLUTION  MAY  BE  OBTAINED  BY  USING  MATRIX 
_I  NVERS I ON  (MINVJ  AND_MATRIX_-FRODUCJ-_1GMPRDl>-. 

SUBROUT I NES  AND -FUNCT J ON -SUBPROGRAMS -REQUIRED 

NONE 


METHOD 

. ...  -METHOD  OF  SOLUTION  _IS  .BY  ELIMINATION  USING  LARGEST_PJ  VOTAI 

DIVISOR.  EACH  STAGE  OF  ELIMINATION  CONSISTS  OF  INTERCHANGING 

ROWS  WHEN  NECESSARY- TO-AVOI D DIVISION  _EY_  ZERO  ORSMALI - 

ELEMENTS. 

XHE__FORWARD_SOLUII  ON_IQ_OBIAIN_yARlABLE_N L£_DONE IN 

N STAGES.  THE  BACK  SOLUTION  FOR  THE  OTHER  VARIABLES  IS 

CALCULATED  BY_  SUCCESSI VE-SUBSITJUJI ONS FINAL  SOLUJION 

VALUES  ARE  DEVELOPED  IN  VECTOR  B,  WITH  VARIABLE  1 IN  B(l), 

VAR  I ABLE_2_J  N B ( 2T. . VARIABLE— N _J  N _BIN  I 

IF  NO  PIVOT  CAN  BE  FOUND  EXCEEDING  A TOLERANCE  OF  0.  0, 

THE MATRIX L£_CONSIDERED_SINGULAR_AND_KS IS_SEI ID 1 IMIS 

TOLERANCE  CAN  BE  MODIFIED  BY  REPLACING  THE  FIRST  STATEMENT. 


FOR WARD -SOLUJION 

T0L=0— O 

KS=0 

JJ=-N  

DO  65  J= 1 » N 

JY=U+1 

JJ= JJ+N+ 1 

BIGA=D 

I T =JJ- J 

D0_30_I=J,N 

SEARCH  -FOR- MAX  I MUM  -COEFFICIENT — IN  COLUMN 

I J=JJ.+_I 

I F < ABS ( B I GA ) — ABS ( A < I J) ) ) 20. 30. 30 

. _20_BIGA=A< I JI 

IMAX  = I 

30 -CONTINUE 

TEST_ECR-RJ  VOT—LESS — THAN —TOLERANCE (SINGULAR-MATRIX  I. 

IF(AE'S(EJGA)  JOL)  -35^.35.-40 

35  KS=1 

RETURN 

1 N TERCHANGE-ROWS  _I  F-NE  CESS ARY 


40 . II  =J+N«  U-2) 
I T= I MAX- J 
DO  50  K= J.  N 
I 1 = 1 1+N 


IJ 


:.-HVL  = A(  1 1 ) 

At II )=A< 12) 
At  12 ) =SAVE 


C 

_C_ 

C 


_C_ 

c 

c 


c 

c 


\ 


DI VI DEFOLIATION  ey  leading  coefficient 


50  A < 1 1 ) =A (11) /B I GA 


SAVE=B  < I MAX) 
E ( I MAX )=B< J) 


B ( J ) =SA VE/B I GA 


ELIMINATE  NEXT  VARIABLE 


IF(J-N)  55,70.55 
55  I GS=N* < J-l ) 


DO  65  I X=JY. N 
I X J= IQS+ 1 X 


IT=J-IX 
DO  60  JX=JY.  N 


I X JX=N* ( JX-1 ) + IX 
JJX=IXJX+IT_  


60  At  I X JX ) =A ( IXJX )-(A< I X J ) *A  t JJX ) ) 
65  B < I X ) =B ( IX)-(B(J) *A ( IXJ)  ) 


BACK  SOLUTION 


70  NY=N-1 


IT=N*N 

DO  80  J=l,  NY 


I A= I T- J 
I B=N- J 


IC=N 

DO  80  K=1 , J 


B ( IB ) =B  < IB ) -A ( I A ) *B ( I C ) 

I A= I A-N 


80  IC=IC-1 
RETURN 


END 


00 


\\  WWWWW 
_ 


> WWWWW' 


r 

j-F_ 

-F 
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-F 
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<WW\ 


P RQGPA  M FS  I GEN  ( I NFUT,  C LT  FCT  , T DP  El ) 

COMMON  Y(1?6),YN(6,12A)  , P*  I ( 6 ,6  , ? 7 ) 

XX 

XX 

C 

1 

COMMON  FFIO,  ETrKJ,NP,NF2,NF2Pl,NL'P,  ALE 

CB 

2 

COUPLE  7 V 

MAIN 

c 

— 

N A M f L t ST/PARAMS/ ET A ,NF  ,NK,  IT  CT  AL 

MAIN 

6 

c 

FIN 

i 

c 

F IN 

7 

c 

— — — 

THIS  PROGRAM  COMPUTFS  THE  CFF -0 1 AGON  At  MATRIX  ELEMENTS  FOR 

ALL 

FIK 

V. 

c 

— — — 

GALERKIN  PROGRAMS  WRITTEN  PRIOR  TO  JULY  15,  1976. 

FIN 

A 

c 

— 

THE  OFF-PIAGCNAL  MATRIX  ELEMENTS  CAN  BE  WRITTEN  AS  DOUBLE 

FINITE 

FIN 

c 

— - 

FOURIER  TRANSFORMS  ONCE  TH F GALERKIN  METHOD  IS  APPLIED  TO 

E 0 . 5 IK 

FIN 

6 

„ 

c 



THE  PAFER 

FIK 

7 

c 

— 

FIN 

e 

r 

_ _ _ 

F1FCTRIC  FIFLD  INTERACTIONS  WITHIN  FINITE  ARRAYS  AND  THE  DESIGN 

FIN 

C 

c 

_ _ _ 

OF  WITHDRAWAL  WEIGHTED  SAW  FILTERS  AT  FUNDEMENTAL  AND  HIGHER 

FIN 

1 0 

» 

c 

— 

HARMONICS. 

FIN 

n 

c 

... 

BY  LAKER,  COHEN,  l S L OEOCN IK , JR . 1976  ULTRASONICS  SYMPOSILM 

FIK 

1 2 

c 

— 

PROCEEDINGS,  IEEE  CAT.  NO.  76  CH112C-5SU,  317-321. 

FIN 

13 

c 

FIK 

1 A 

c 

_____ 

fl  TRAPF70IDAL  RULE  IS  USED  WITH  AN  F FT  POUTINF  TO  EFFECT  THE 

FIN 

15 

c 

DOUBLE  INTEGRATIONS. 

FIN 

16 

c 

, 

FIN 

17 

c 

— 

- 

FIN 

1 £ 

c 

— 

USER  SUPPLIES  (IN  NAMELIST) 

FIN 

19 

c 

T.  ETA  = ELECTRODE  W I C T H/C  FN  T EP -TO -CENT  ER  SEPARATION 

FIN 

20 

c 

?.  HP  = NO.  OF  FOINTS  IN  the  QUA  ORA  TUDr  ( = 129,  USUALLY) 

FIN 

21 

c 

3.  NN  = NO.  OF  TERMS  IN  TEE  CHARGE  DENSITY  EXPANSION  ( = 

6) 

FIN 

22 

c 

A.  ITCTAL=  max  . NO.  OF  ELECTRODES  IN  ARPAY 

FIN 

23 

c 

FIN 

2 A 

c 



ARRAY  DIMENSIONS 

FIN 

25 

c~ 

Y (NP> 

FIN 

26 

c 

Y N ( NN, NF ) 

FIN 

27 

c 

PSI(NN,NN,2* ITOTAL-1) 

FIN 

28 

c 

FIN 

29 

c 

_ _ _ 

OFF-OI  AGONAL  ELEMFNTS  ARE  STORED  IN  PSKX,  X,X) 

FIN 

c 

FIN 

31 

c 

“ 

FIN 

32 

c 

FIN 

3 3 

Rf  AD  PARAMS 

main 

7 

PRINT  PAPAMS 

MAIN 

6 

PI=^.l A15P26E35897P 

MAIN 

9 

JTOP=2,ITOTAL-1 

MAIN 

ir. 

N P 2 = NP / 2 

XX 

•3 

NR2P1=  K F 2 ♦ 1 

XX 

A 

NU  c = NP (P1+  1 

XX 

c 

J = I T OT  AL 

XX 

E, 

A L F = 2 . ’PI/FLCAT ( NP) 

MAIN 

1 1 

DTODHI=ALF*ALF 

MAIN 

1 2 

nn  10  KM JP7= 1, JT OP 

MAT  N 

12 

IF  (KMJP7.E0. J)GO  TP  ID 

MAIN 

1 A 

-TAKJ=2.*FLOAT(  KMJP7-  J)  / ETA 

MAIN 

15 

DO  20  IC=1,NP 

MAIN 

16 

PHI 0=2 .* PI* FLO AT (TP -1) /FLOAT (NP) 

MAIN 

17 

CALL  YFFCRM 

MAIN 

i e 

CALL  FCUPT  (Y  ,NP,  1,1  ,-l  ,0) 

MAIN 

19 

PO  3 0 N = 1 , NN 

MA  I N 

2 0 

3D 

YN(  N,I  C)  =REA  L ( Y ( N)  ) 

MAIN 

21 

2c 

CONT  TNUE 

MAIN 

22 

DO  AO  N=1,NN 

MAIN 

23 

CALL  XCFPRM(K) 

MAIN 

2 A 

CALL  FOUDT (Y,UP,  1,1  ,-1,0)  170 

main 

25 

r>  r\  r D • 4 AMI 

VMM 

9f> 

r 


Program  SINGLE  computes  the  acoustic  response  for  one  or  more  electrode 
in  a single  electrode  array.  The  user  must  supply  the  following: 


A.  in  NAME  LIST /PAR  AMS/ 

1.  NN  (Same  as  in  GAL3SE  documentation) 

2.  NOMEGA  = no.  of  acoustic  response  ordinates 

= 480  for  0 f/fQ  12 

3.  JTH  (Same  as  in  GAL3SE  documentation) 

4.  NCASE  " " " 

5.  ITOTAL  " " " " " 


B. 


in  NAME  LIST /VSEQ/ 

1.  NUM  (Same  as  in  GAL3SE  documentation) 

2.  JTH  " " " " ’ " 

3.  POL  1 " " 


ARRAY  DIMENSIONS 

AMPL(NOMEGA) 

PHSE  (NOMEGA) 

SEQ  (ITOTAL) 

C(NN) 

POL  (ITOTAL) 

BCD(8)  = title  or  header  card 


Program  DOUBLE  is  similar  but  the  dimension  of  C must  be  at  least 
NN*ITOTAL. 
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PROGRAM  _SINGLE!JNFUJIj-OllT.PIlT.-,Er-AE'h.4.>J'ARE8,_T_APE9-»  .PUNCH.) 

COMMON  AMPL ( 960 ) , FHSE<960)»  NOMEGA,  DOMEGA.  £EQ(21 ),  ECD<8)»  L£. L8HIFT 

CGMM0N_NN2,JEL»-TW0FJj_MARG,JC!6) 

DIMENSION  POL (21 ) 

D DIE  NS1DN  — IAELEJ  64j_21 

DIMENSION  I BASE  C 7 ) . I POL ( 7 ) . KPOL ( 7 ) 

DATA  JEASE/X,-3.,-SL._27-,-8:L,-243,_7.29/ 

DATA  HA/1HA/ 

NAMELICTyPARAMS/NN,-NOMEGA.-JJ.H,-NCASE,_LT.OTAI — I 

NAMELIST/VSEQ/NUM.  JTH,  POL  • 


***  THIS  PROGRAM  COMPUTES  THE  ACOUSTIC  RESPONSE  FUNCTION  FOR 

*** ONE-ELECTRODE AT— A— TIME LN_SINGLE_ ELECTRODE— ARRAYL — 

***  THE  RESPONSE  COMPUTED  EY  THIS  PROGRAM  IS  THE  PRODUCT  OF  THE 

4»* FOURIER-TRANSORM-OE-CTHE-NGRMAI D=PJELD— UNDER— T-HE— ELECTRODE : 

***  IN  QUESTION  AND  A FREQUENCY-DEPENDENT  SKEWING  TERM. 

*** THE— NORMAI D=JLIELIL_WAS_DEXAlNED_USlNG_IHE_SIXiRED_VALUES 

«**  FROM  TAPE4  OF  THE  SURFACE  CHARGE  DENSITY  EXPANSION  COEFFS. 

«** COMPUTED  — EY PROGRAM  -G AL3SE 


30 FJJRMATT-SAIO) 

149  FORMAT  ( / 45X,  21 (Al.  2X)/) 

U50  __ EORMATXTH 1 j-2Q)C-*MAGN CUE-EREQ— RESFDNSE*ZX-LX,10E12_4_L> 

151  FORMATOOX.  5F13.  10) 

_13G F0RMATiy/2OX^JUlHASE— SF£CTEUM*/1T-X,TOFJLO-6JJ 

198  FORMAT  ( //45X » *CONF  I GURAT I ON  NO.  *,  13.  10X.  ^ELECTRODE  NO.  *,  12,  2X, 

1 * INDEX=JUJ2yj 

350  FORMAT  ( //45X,  ^EXPANSION  COEFF I C I ENTS*/ ( 1 X,  1 OF 1 3.  1 0 ) ) 

439— R0RMATX-1H  1^-20  JC,-*HARTJiANN_TAELE*yy/J 

440  FORMAT!  1 OX,  8F 10.  6/10X.8F10.  6///) 

A 7 5 _FOFvMATiy/45X,_*CASE — NQ_*-._L2J 

C 

READ-PARAMS 

PRINT  PARAMS 

DOMEGA=.  019634954 

NOFRI  NT- =1 — 

NOF’LOT  = 1 

L£=40«OXH*J 

DEN0M=24.  *DOMEGA 

E Ll  =3-1 415  Sr265358979 

TWOPI  =2.  *PI 


JLTM2=JLT£JTAL=1 


DO  200  LA= 1 . NCASE 

READL4,  25)KASE,  JJ,  POL,  C . 

25 

FORMAT  ( 10X,  13.  10X,  I2/3(5X,  7F5.  0/) , 6F10.  6) 

NUM=KASE 

I F ( JJ  NE  11)00  TO  200 

CALL  AMPF'HSE 

C 

LS-40«JTH-*-l 

22 

r. 

CONT I NUE 

IF ( NOPRINT.  EQ.  1 ) GO  rO  657 

PRINT  52,  (AMPL(KI)  Ki  l.NOMEGA) 

52 

FORMAT ( 10X.  *SPECTRAL  RESPONSE  AMPLITUDES*/ /((IX,  1 OF 11.  4 ) ) ) 

PRINT  160,  (F'HSF  ( I ) . 1 = 1.  NOMEGA) 

657 

CONTINUE 

IF  (NOPLOT.  EQ.  1)G0  TO  445 

K2=KSTRIP 

FlMCririF  ( 27 . 455,  BCD(5)  )KASE,  K2  

455 

c 

FORMAT  (4H  NO.  , 12,  IX,  10H  ELECTRODE.  13) 

CAL  L DZPLOT 

445 

c 

CONTINUE 

C 

c 

PHASE-SLOPE  USING  5-F'OINT  FORMULA 

c — 

p 

THE  DERIVATIVE  IS  WITH  RESPECT  TO  NU.  AND  IS  EXACTLTY 
FORMULATED  IN  TERMS  OF  FINITE  DIFFERENCES  

c 

PS-2  *F'HSE(LS— 2)  — 16  *F'HSE  ( LS- 1 ) + 1 6 *F'HSE  ( LS+ 1 ) -2.  *PHSE.(  LS+2  ) .. 

p 

PS=-  1 25*PS/DEN0M 

INTEGERIZING  OF  PQLARJ TY  SEQUENGE_AND_CREATION 

c 

C 

OF  THE  SHIFTED  BASE  3 INDEX  = LOC. 

DO  107  1=8. 14 


107 


I POL ( 1 1 ) = INT (POL< I ) ) + l 
KF'OL.  ( 1 ) = I POL  ( 4 ) 


KF'OL  ( 2 ) = I POL  ( 5 ) 
KPOL  ( 3 ) = IEDLL6L 


KF'OL  ( 4 ) = I F'OL  < 7 ) 
KF'OL  ( 5 ) = I POL  ( 1 ) 


KPOL  < 6 ) = 1 POL  ( 2 ) 
KPOL  ( 7 ) = I F'OL  < 3 ) 


1 10 


LOC=  1 

DO  1 10  1 = 1.6 

11=8-1 

L0C=L0C-*-KF'0L  ( 1 1 ) « I BASE  ( I ) 
CONTINUE 

F'OL  ( 1 1 )=-l.  


WRITE <8,  VSEQ) 

1 I A=LOC  * 118=1  * 1 1C=2 


C 


45 


PUNCH  45.  I IA.  I IB,  I IA,  I IC, AMPL(LS) . PS 
F ORMAT  (7X.  »DATA  TABLE  ( ♦ . 1 3,  « . «.  1 1 . * ) . TABLEO, 


% 13,  *,  *,  1 1.  *>/■*,  F9  6.  *.  *»  F9.  6,  */* ) 

PRINT  95.  KASE,  <P0L(K),K=8,  14) 


95 

36 


FORMAT  <5X,  14, 5X. 7F4  O) 

FORMAT ( 5X.  »CASE  NO.  =».  14,  5X,  7F4.  0,  5X,  2 ( 1 X,  F9.  J> LL 


C 

C 


PRINT  35, KASE,  (POL(K),  K=8,  14).  ( IPOL(K). K=l. 7).  (KPOL(K). K=l, 7). 

» LOC,  AMF'L(LS),  PS 


35  F ORn« T (IX.  13.  3X,  7F4  0,  3X.  714,  3X,  7 1 4/1  OX,  15.  IX,  2<  1 X,  F9.  6)//) 


200  CONTINUE 
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- COMMON-  NN2.  Ha  ,-T  UOFJ  , J1ARG.  -C  ( 

DATA  D/1.  E-9/ 

~ note"  the^phase  calculated  here  is  the  negative  of 

—  IHE_EHASE_OE_JHE_ACOUSXIIL_RESPONSE 

-JWOPJ  =0 

LA=LS-2 

L£=LS±2 

DO  10  LS=  LA.  LB 


niwiagfn 


I I=LS 

L=I1 — 

SUMR=SUM  I =0. 

m -l  Q0-NXslv-NN2  - 

NM=NT-1 

_NEnNMft2 — — 

N0=2*NM+1 

CALI BESJ  (OMEGA.NEL.BJ.JL  JERJ — 

I F ( (OMEGA  EQ.  0.  >.  AND.  (NE.  EQ.  O)  >BJ=1. 

EYE-COSCEJ  *Fi_OATXNMD 

NA=NO 

SUMR=SUMR±QLNAUtBJ*£Y£ 

CALL  BESJ ( OMEGA.  NO.  BJ. D,  IER) 

IEI 1 OMEGA— EGLO ) AND LNQ.  EQ  OU£J=J 

EYE1=-EYE 

_SUM  I =SUMI*C4NA+— 1J*BJ*EYE1 — 

1 00  CONT I NUE 

SGi=SUMR«SUMR+SUWI>SUMI — 

SQ=SQ*4  *DOMEGA*FLOAT  < 1 1 — 1 > /PI 

IF  ( SQ.  LE^O— )FJUNT— 25.  -SQ.-SUMR.-SUMI  ,_DOMEGA,_LI 

25  FORMAT  ( 10X.  *SQ=*.  El  1.  4.  IX,  *SUMR=*.  Ell.  4.  IX.  *SUMI=*.  Ell.  4,  IX. 

* - *DuMEGA=»,  El  1-4,1  J4J 

T =SQRT ( SQ ) 

AMPLJCJ^OJC-l  9-058241-1-1 

PHSE  ( L ) =0. 

IF(SUMR-NE— (O 1— AND— SUMI — NE.  (O  . l-)-PHSELO-J=ATAN2X3UMIJ-SUMRl 

50  CONTINUE 

-10 CONTINUE 

RETURN 

-END — 


1 


PROGRAM  DOUBLE!  INPUT,  OUTPUT,  TAFE6.  TAFE9)  

COMMON  AMPL ( 960 ) , PHSE ( 960 ) , NOMEGA,  DOMEGA,  SEQ ( 22 ) , BCD ( 8 ) . LS,  LSH I FT 

COMMON  NN2.  PI,  TWOPI,  MARG,  C(  190) 

DIMENSION  I ONE  < 8 ) » I TWO < 8 ), FABLE < 64.  2).  IDD(8) 

DIMENSION  TABLE ( 64, 2 ) 

DATA  IONE/1.  9.  16,  22.  27.  31, 34,  36/ 

DATA  I TWO/S,  15.  21. 26,  30,  33.  35.  36/ 

DATA  IOD/0,  1.  3,  6,  10,  15,  21, 28/ 

DATA  HA/1HA/ 

NAMEL I ST /PARAMS/NN,  NOMEGA. DOMEGA,  NORMOP.  NOPLOT,  NOPRINT 

1 , JTH.  NCASE,  I TOTAL 

C 

C 

C 

C : 

C THIS  PROGRAM  COMPUTES  AND  PLOTS  THE  ACOUSTIC  RESPONSE  FUNCTION  FOR 

C AN  ELECTRODE  PAIR  IN  AN  ARRAY  OF  ELECTRODES. 

C THE  RESPONSE  IS  THE  PRODUCT  OF  THE  FOURIER  TRANSFORM  OF  THE 

C NORMAL  D-FIELD  UNDER  THE  PA  I B IN__QUESXLON_ANELj0lJEREG(UENCY 

C DEPENDENT  SKEWING  TERM. 

C THE  NORMAL  D-FIELD  WAS  OBTAINED  USING  THE  STORED  VALUES  OF  THE 

C APPROPRIATE  SURFACE  CHARGE  DENSITY  COEFFICIENTS  WHICH  WERE  COMPUTED 

C BY  ANOTHER  PROGRAM  ( GALERKN-TYPE ) 

C 

C 

c 

c ; 


30  FORMAT (8A10) 

149  FORMAT (/45X,  22(A1,  2X)/) 


150 

151 

FORMAT  ( 1H1. 20X,  *MAGN.  OF  FREQ.  RESPONSE*/ ( 1 X.  1 OE 1 2.  4 ) ) 

FORMAT ( SOX,  5F 13.  10) 

160 

198 

FORMAT (//20X, *PHASE  SPECTRUM*/ < 1 X,  10F10.  6)) 

FORMAT  ( / /45X.  *CONF  I GURAT I ON  NO.  *,  13.  10X,  *ELECTRODE  NO.  *,  12,  2X, 

350 

1 * I NDEX=*,  12/) 

FORMAT ( //45X.  *EXFANSION  COEFF I C I ENTS*/ ( 1 X,  1 OF  1 3.  10)) 

439 

440 

FORMAT ( 1H1,  20X,  *HARTMANN  TABLE  - FOR  F/FO=*,  12///) 

FORMAT  ( 10X,  8F10.  6/1  OX,  8F10.  6///) 

675 

C 

FORMAT  (//45X,  *CASE  NO.  *,  12) 

MM=0 

READ  PARAMS 


PRINT  PARAMS 

C 

LS=40* JTH+ 1 

DEN0M=24  * DOMEGA 

FI  =3.  14159265358979 

TWOP I =2.  *PI 

I TM2= I T OT  AL— 1 

C 

C 

K2-6 

” NN2=NN/2 

c_ 

READ  30. BCD 

PRINT  SCt^BCD  

C 

DO  200  LA=1. NCASE 

READ (6.  198) KASE.  JJ.  KM 

RF  AH ( 6.  149) ( SEQ ( I ) . 1=1,  I TOTAL) 


175 


1 


22 


. READ < 6,  151  ) <C(N+MARG),  N =1,  NN). 
F'RINT  198, KASE.  JJ,  KM 

PRINT  149,  SEQ  

PRINT  151.  ( C ( N+  M ARG ) > N= 1 . NN ) 

_LSH1EJ=D 

CALL  AMPPHSE 

CGNT 1 NUE 

-READ  1 6,-19£OKASE.JJJ^KM- 
READ <6.  149) <SEQ< I ) , 1 = 1,  ITOTAL) 
_MARG=UCWrJ_L»NN 1 


READ (6,  151 ) (C(N+MARG),  N=l.  NN) 

CALL  ERRSETXMFL-2QJ 

PRINT  1 98. KASE,  JJ.  KM 

PRINT-14SL-SEQ 

PRINT  151.  (C(N+MARG), N=l,  NN) 
L SHI  EJ_=N  OMEGA 


CALL 

CALL 


AMPPHSE 

PAIR 


_ C 


IF  C NOPRINT.  EQ.  1 )GO  TO  657 


52  FORMAT < 1 OX, ^SPECTRAL  RESPONSE  AMPLITUDES*//! < IX, 

F'R  INT  -1 60,  .(PHSE  { 1 JJ_l=lJ-NOMEGAT 

657  CONT I NUE 

IF  (NOPLOT-  EQ—1JGO— TO—445 


10F11.  4)  ) ) 


ENCODE (20, 455. DCD<5> )KASE,  K2 

455 FORM AT-L.4H— NO-  , -13,  lOH-. EAlR__tt,  I3)_ 

CALL  DZFLOT 

CONTI NUE 


— 445 

C 

C 


-F'HASE  -SLOF'E  - US  I NG—5-P0  INI— FORMULA — 
F’S=2  *PHSE  ( LS-2 ) - 1 6.  *PHSE  ( LS- 1 ) + 16. 

-PS== 1 25*RS/DEN0M 

TABLE (LA. 1)=AMPL(LS) 

-TABLE  ( LA.-2J  =RS 


*PHSE ( LS+ 1 ) -2.  *PHSE(LS+2) 


200—  CONTINUE 


C 


_LL 


_ .250 


__A1  =JABLE( -1j_ 

DO  250  LA= 1 , 64 
—TABLE  ( LA.-U  =JABLE  (LA.  I-X/-A1- 
DO  329  11  = 1,8 

I D= JDD ( I II 

11=1 ONE (II) 

_12=J  JWGLIJL) 

DO  330  1 = 11, 


12 


FAELETI  +ID,_U.=TABLE  ( I,_1J_ 

330  FABLE  ( I + 1 D.  2 ) =T ABLE  (1.2) 

329  — CONTINUE 

DO  285  11  = 1.8 

IJI=8*JJJ^1JJ-_1 

I V=I I 1+7 

2:S5_.  CONTINUE 

PRINT  439. JTH 

DO  328  IR0W=1,8 

DO  327  IC0L=1. 8 


_U=8*  (IROWzlUjJ COI — 


327 

328 


JT =8* ( I COL— 1 ) + 1 ROW 

IF  ( I COL.  LT I ROW)  GQ_JT0_327_ 

FABLE (JT,  1 ) =F ABLE ( IT.  1 ) 

FABLE  ( JT,  2.)  -FABLE  ( I T,  2J 

CONTINUE 


176 


w 


IF  ( <UMEGA  EQ.  O.  ).  AND  (NO.  EQ 

EYE1=-EV£ _ 

SUM I =SUM I +C ( NA+  1 ) * B J*E YE 1 

1 00  CONT I NUE __ 

SUMR--SUMR 

SUMI=-SUMI 

SQ=SUMR*SUMR+SUM I* SUM I 
L=I  I +LSHIFT 


r 


SUBROUTINE  BZPLOT 

_ COMMON  AMPL  ( 9601, -PHSE  196,0) , NOMEGA,  DOMEGA,  SEGH22),  BCD(8).  LS,  LSHIFT 
COMMON  NN2.  PI,  TWOPI.  MARG,  C(  190) 

DIMENS I ON  —XAI4801 

DIMENSION  POL (19) 

xsi  ze=i2 * ysi2E=a 

C 


C NORMALIZATION  OF  SPECTRUM 


HI  TE=.  1 

PRINT!  _50j_I  AMPL  ( LL,  J_=L..NOMEGAT 

50  FORMAT ( 1H1, 20X.  *SPECTRAL  RESPONSE  FUNCT I ON*// ( ( 1 X.  10F1 1.  4 ) ) ) 

C AMPLITUDE  -SPECTRUM _PLOJ 

CALL  PLT I D3 < 26HE.  COHEN  **DOUBLE**  X2402.  30.  . 11.  . 1.  O) 

DQ_40_LHJLi_N0tlEGA 

40  XA(L>=4.  *D0MEGA*FL0AT(L-1 >/PI 

C Xr  AX  I S 

DVX=  1 0. 

. CALL-  SCALEIXA,  12__,»0MEGA._1/JDVXJ-XMIN,JDXT 

CALL  AX  I S ( 0.  # O.  / 5H  F/FO. -5,  XSI  ZE.  0.  . XMIN,  DX,  DVX  > 

XC=3_D 

YC=8  7 

-CALL  SYMBOL! XCj_yCiHlT£/-BCDj_0 /-80J 

ENCODE ( 54/ 55, POL < 1 > ) (SEQ( I ). 1=1. 22) 

55 FORMAT  i 10X,J22(Al.,_lXT-> 

YC=8  5 

CALL . -SYMBOL!J(C1.JY£1._HUEj_FjOL_._D LSDJ 

C Y-AXIS 

C YMAX  = MAX.  ORDINATE  VALUE 

_C-~— YMIN  = _M  I N. — ORD I N ATE—VALUE 

C YNUM  = NUMBER  OF  INTERVALS  COMPOSING  (YMIN, YMAX) 

— C===--YLNGJ>i—=— LENGTH -OF— Y-=AX.IS — (-INCHES1 

YMAX=2.  * YMIN=0.  * YNUM=20.  * YLNGTH=8. 

DVY=10-*YNUM/YLNGTH 

DY= ( YMAX- YM I N ) /YLNGTH 

CALL  AXISIO — ,Q._.  25HN0RMAI_IZED_AMP-  -RESF’ONSE— ,_25,  8.^4,_90_ ,.Y.MIN,_DY-,. 

1 DVY ) 

CALI Li  NE!I  JCA/-AMP1_,-N0MEGA/_L,  XL,_lT.J_XMIN/-DXJ_yrtIN/_DY-/_  DEL) 

C PHASE  SPECTRUM  PLOT 

-C X-AXIS 

ORIGIN=XSI ZE+2 

CALI PLOT  (ORIGIN,  0 _. -31 

CALL  AX  I S ( O.  ,0  , 5H  F/FO, -5.  XSI  ZE,  O.  » XMIN,  DX,  DVX  ) 

YC=8_7 

CALL  SYMBOL ( XC,  YC,  HITE,  BCD,  0.  ,80) 

_ YC=S._5 

CALL  SYMBOL  ( XC,  YC,  HITE.  POL,  0.  ,80) 

C Y-AXIS 

DVY=  1 0. 

CALI SCALE  (PHSE,-8_-N0MEGA,_lJ-DVYJ_yMIN,-DYJ 

CALL  AX  I S ( O.  , O.  . 14HPHASE  SPECTRUM,  14.  YSIZE.  90.  . YMIN,  DY,  DVY) 

CALI — LINEIXA.  J?HSE,  NOMEGA,_L.-Qj_LLl_XMIN,_DX.._YMIN,-DY_, 081 

CALL  PLOT  (20  ,0.  . -3) 

_ RETURN 

END 
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